projects
/
ZOOM-Perl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
v1.06
[ZOOM-Perl-moved-to-github.git]
/
lib
/
Net
/
Z3950
/
ZOOM.pm
diff --git
a/lib/Net/Z3950/ZOOM.pm
b/lib/Net/Z3950/ZOOM.pm
index
fda0107
..
52f285a
100644
(file)
--- 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.19 2006-04-19 20:11:45 mike Exp $
package Net::Z3950::ZOOM;
package Net::Z3950::ZOOM;
@@
-6,7
+6,7
@@
use 5.008;
use strict;
use warnings;
use strict;
use warnings;
-our $VERSION = '1.05';
+our $VERSION = '1.06';
require XSLoader;
XSLoader::load('Net::Z3950::ZOOM', $VERSION);
require XSLoader;
XSLoader::load('Net::Z3950::ZOOM', $VERSION);
@@
-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_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
=head1 NAME
@@
-111,8
+111,8
@@
sub event_str {
return "receive record";
} elsif ($code == EVENT_RECV_SEARCH) {
return "receive search";
return "receive record";
} elsif ($code == EVENT_RECV_SEARCH) {
return "receive search";
- } elsif ($code == EVENT_RECV_END) {
- return "receive end";
+ } elsif ($code == EVENT_END) {
+ return "end";
}
return "impossible event " . $code;
}
}
return "impossible event " . $code;
}