-# $Id: ZOOM.pm,v 1.23 2006-06-13 16:44:21 mike Exp $
+# $Id: ZOOM.pm,v 1.33 2007-02-26 14:36:11 mike Exp $
package Net::Z3950::ZOOM;
use strict;
use warnings;
-our $VERSION = '1.09';
+our $VERSION = '1.18';
require XSLoader;
XSLoader::load('Net::Z3950::ZOOM', $VERSION);
my($vs, $ss) = ("x" x 100, "x" x 100); # allocate space for these strings
my $version = Net::Z3950::ZOOM::yaz_version($vs, $ss);
-if ($version < 0x020115 && ! -f "/tmp/ignore-ZOOM-YAZ-version-mismatch") {
+if ($version < 0x020132 && ! -f "/tmp/ignore-ZOOM-YAZ-version-mismatch") {
warn <<__EOT__;
*** WARNING!
-ZOOM-Perl requires at least version 2.1.21 of YAZ, but is currently
+ZOOM-Perl requires at least version 2.1.50 of YAZ, but is currently
running against only version $vs (sys-string '$ss').
Some things may not work.
__EOT__
sub EVENT_RECV_SEARCH { 9 }
sub EVENT_END { 10 } # In YAZ 2.1.17 and later
+# CCL error-codes, which are in a different space from the ZOOM errors
+sub CCL_ERR_OK { 0 }
+sub CCL_ERR_TERM_EXPECTED { 1 }
+sub CCL_ERR_RP_EXPECTED { 2 }
+sub CCL_ERR_SETNAME_EXPECTED { 3 }
+sub CCL_ERR_OP_EXPECTED { 4 }
+sub CCL_ERR_BAD_RP { 5 }
+sub CCL_ERR_UNKNOWN_QUAL { 6 }
+sub CCL_ERR_DOUBLE_QUAL { 7 }
+sub CCL_ERR_EQ_EXPECTED { 8 }
+sub CCL_ERR_BAD_RELATION { 9 }
+sub CCL_ERR_TRUNC_NOT_LEFT { 10 }
+sub CCL_ERR_TRUNC_NOT_BOTH { 11 }
+sub CCL_ERR_TRUNC_NOT_RIGHT { 12 }
+
=head1 NAME