From: mike Date: Fri, 7 Apr 2006 12:06:08 +0000 (+0000) Subject: Typos X-Git-Tag: cpan_1_22~210 X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=f6593c83417f8e33a25067a8068f8bbff7d8b2e5;p=ZOOM-Perl-moved-to-github.git Typos --- diff --git a/lib/Net/Z3950/ZOOM.pm b/lib/Net/Z3950/ZOOM.pm index fda0107..de8a040 100644 --- a/lib/Net/Z3950/ZOOM.pm +++ b/lib/Net/Z3950/ZOOM.pm @@ -1,4 +1,4 @@ -# $Id: ZOOM.pm,v 1.16 2006-04-07 12:05:41 mike Exp $ +# $Id: ZOOM.pm,v 1.17 2006-04-07 12:06:08 mike Exp $ package Net::Z3950::ZOOM; @@ -52,7 +52,7 @@ sub EVENT_SEND_APDU { 6 } sub EVENT_RECV_APDU { 7 } sub EVENT_RECV_RECORD { 8 } sub EVENT_RECV_SEARCH { 9 } -sub EVENT_RECV_END { 10 } # In YAZ 2.1.17 and later +sub EVENT_END { 10 } # In YAZ 2.1.17 and later =head1 NAME @@ -111,7 +111,7 @@ sub event_str { return "receive record"; } elsif ($code == EVENT_RECV_SEARCH) { return "receive search"; - } elsif ($code == EVENT_RECV_END) { + } elsif ($code == EVENT_END) { return "receive end"; } return "impossible event " . $code;