X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FPing.pm;fp=lib%2FZOOM%2FIRSpy%2FTest%2FPing.pm;h=5c93fb7d6e46d614f6178e27b6d0bd371b46efad;hp=7f14db2f92d49e7263cbf563aa216d76b5acbf4c;hb=b7dec18e8deafaecf3c67f740229619285f9202e;hpb=14d42e4137b1dd2b5cdfc983e45ac45d5a36805b

diff --git a/lib/ZOOM/IRSpy/Test/Ping.pm b/lib/ZOOM/IRSpy/Test/Ping.pm
index 7f14db2..5c93fb7 100644
--- a/lib/ZOOM/IRSpy/Test/Ping.pm
+++ b/lib/ZOOM/IRSpy/Test/Ping.pm
@@ -1,4 +1,4 @@
-# $Id: Ping.pm,v 1.22 2007-03-02 12:17:33 mike Exp $
+# $Id: Ping.pm,v 1.23 2007-04-30 11:26:57 mike Exp $
 
 # See the "Main" test package for documentation
 
@@ -55,6 +55,9 @@ sub maybe_connected {
 	foreach my $opt (qw(serverImplementationId
 			    serverImplementationName
 			    serverImplementationVersion)) {
+	    my $val = $conn->option($opt);
+	    next if !defined $val; # not defined for SRU, for example
+
 	    # There doesn't seem to be a reliable way to tell what
 	    # character set the server uses for these.  At least one
 	    # server (z3950.bcl.jcyl.es:210/AbsysCCFL) returns an ISO
@@ -67,7 +70,6 @@ sub maybe_connected {
 	    # ASCII-Latin-1, and try to convert to UTF-8.  If that
 	    # conversion works, fine; if not, assume it's because the
 	    # string was already UTF-8, so use it as is.
-	    my $val = $conn->option($opt);
 	    Text::Iconv->raise_error(1);
 	    my $maybe;
 	    eval {