Inhibit ZOOM/YAZ version mismatch warning if magic file exists

diff --git a/Changes b/Changes
index c68f94d..acd6ef9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,11 +1,12 @@
-$Id: Changes,v 1.16 2006-01-20 12:33:03 mike Exp $
+$Id: Changes,v 1.17 2006-01-31 15:39:05 mike Exp $
 
 Revision history for Perl extension Net::Z3950::ZOOM.
 
 1.02  [IN PROGRESS]
        - Add interface to yaz_version().
-       - Emit big warning at startup time if YAZ version is less that
-         2.0.11, which is what ZOOM-Perl 1.02 requires.
+       - Emit big warning at startup time if YAZ version is less than
+         2.0.11 (which is what ZOOM-Perl 1.02 requires) unless the
+         file /tmp/ignore-ZOOM-YAZ-version-mismatch exists.
        - Fix incorrect ZOOM-package URL in documentation.
 
 1.01  Thu Dec 22 14:13:34 GMT 2005

diff --git a/lib/Net/Z3950/ZOOM.pm b/lib/Net/Z3950/ZOOM.pm
index 39c3828..ea8cf10 100644 (file)
--- a/lib/Net/Z3950/ZOOM.pm
+++ b/lib/Net/Z3950/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.8 2006-01-20 12:33:30 mike Exp $
+# $Id: ZOOM.pm,v 1.9 2006-01-31 15:39:05 mike Exp $
 
 package Net::Z3950::ZOOM; 
 
@@ -13,7 +13,7 @@ XSLoader::load('Net::Z3950::ZOOM', $VERSION);
 
 my($vs, $ss) = ("", "");
 my $version = Net::Z3950::ZOOM::yaz_version($vs, $ss);
-if ($version < 0x02010B) {
+if ($version < 0x02010B && ! -f "/tmp/ignore-ZOOM-YAZ-version-mismatch") {
     warn <<__EOT__;
 *** WARNING!
 ZOOM-Perl requires at least version 2.0.11 of YAZ, but is currently