-# $Id: Makefile.PL,v 1.11 2007-02-26 14:47:35 mike Exp $
+# $Id: Makefile.PL,v 1.12 2007-02-27 18:16:26 mike Exp $
use 5.008;
+use strict;
+use warnings;
use ExtUtils::MakeMaker;
+
+my $yazver = `yaz-config --version`;
+if (!$yazver) {
+ die qq[
+ERROR: Unable to call script: yaz-config
+If you are using a YAZ installation from the Debian package "yaz", you
+will also need to install "libyaz-dev" in order to build this module.
+];
+}
+
+chomp($yazver);
+# 2.1.51 is the first version with support for polling arbitrarily
+# many file descriptors: earlier YAZ versions had a hardwired
+# 1024-element array so that working with more file descriptors than
+# this would cause a segmentation fault.
+check_version($yazver, "2.1.51");
+
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
NAME => 'ZOOM::IRSpy',
VERSION_FROM => 'lib/ZOOM/IRSpy.pm', # finds $VERSION
PREREQ_PM => {
- Net::Z3950::ZOOM => 1.18,
- XML::LibXML::XPathContext => 0.07, # For Web UI
- XML::LibXML => 1.58,
- XML::LibXSLT => 1.57,
- URI::Escape => 3.28, # For Web UI
+ "Net::Z3950::ZOOM" => 1.18,
+ "XML::LibXML::XPathContext" => 0.07, # For Web UI
+ "XML::LibXML" => 1.58,
+ "XML::LibXSLT" => 1.57,
+ "URI::Escape" => 3.28, # For Web UI
},
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/ZOOM/IRSpy.pm', # retrieve abstract from module
AUTHOR => 'Mike Taylor <mike@indexdata.com>') : ()),
);
+
+
+sub check_version {
+ my($got, $want) = @_;
+
+ my($gmajor, $gminor, $gtrivial) = ($got =~ /(\d+)\.(\d+)\.(\d+)/);
+ my($wmajor, $wminor, $wtrivial) = ($want =~ /(\d+)\.(\d+)\.(\d+)/);
+ if (($gmajor < $wmajor) ||
+ ($gmajor == $wmajor && $gminor < $wminor) ||
+ ($gmajor == $wmajor && $gminor == $wminor && $gtrivial < $wtrivial)) {
+ print <<__EOT__;
+*** ERROR!
+ZOOM-Perl requires at least version $want of YAZ,
+but is currently you only have version $got.
+__EOT__
+ exit 1;
+ }
+}