From 25dd17dfe3d7242b62e6cec994090bb078433dab Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Tue, 31 Jan 2006 15:39:05 +0000
Subject: [PATCH] Inhibit ZOOM/YAZ version mismatch warning if magic file
 exists

---
 Changes               |    7 ++++---
 lib/Net/Z3950/ZOOM.pm |    4 ++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index c68f94d..acd6ef9 100644
--- 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
--- 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
-- 
1.7.10.4