r59268 - in /trunk/libnet-z3950-zoom-perl: ./ debian/ lib/ lib/Net/ lib/Net/Z3950/ samples/ samples/ccl/ samples/cql/ samples/net-z3950-zoom/ samples/net-z3950/ samples/zoom/ t/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sat Jun 12 15:05:20 UTC 2010


Author: gregoa
Date: Sat Jun 12 15:05:00 2010
New Revision: 59268

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59268
Log:
New upstream release.

Modified:
    trunk/libnet-z3950-zoom-perl/Changes
    trunk/libnet-z3950-zoom-perl/MANIFEST
    trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP
    trunk/libnet-z3950-zoom-perl/META.yml
    trunk/libnet-z3950-zoom-perl/Makefile.PL
    trunk/libnet-z3950-zoom-perl/README
    trunk/libnet-z3950-zoom-perl/ZOOM.xs
    trunk/libnet-z3950-zoom-perl/debian/changelog
    trunk/libnet-z3950-zoom-perl/lib/Net/Z3950.pm
    trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm
    trunk/libnet-z3950-zoom-perl/lib/ZOOM.pm
    trunk/libnet-z3950-zoom-perl/lib/ZOOM.pod
    trunk/libnet-z3950-zoom-perl/samples/README
    trunk/libnet-z3950-zoom-perl/samples/ccl/default.bib
    trunk/libnet-z3950-zoom-perl/samples/cql/pqf.properties
    trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/async.pl
    trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst1.pl
    trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst3.pl
    trunk/libnet-z3950-zoom-perl/samples/net-z3950/zoomtst1.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/async.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/update.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/zhello.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/zoomdump
    trunk/libnet-z3950-zoom-perl/samples/zoom/zoomscan.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst1.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst3.pl
    trunk/libnet-z3950-zoom-perl/samples/zoom/zselect
    trunk/libnet-z3950-zoom-perl/t/1-Net-Z3950-ZOOM.t
    trunk/libnet-z3950-zoom-perl/t/10-options.t
    trunk/libnet-z3950-zoom-perl/t/11-option-callback.t
    trunk/libnet-z3950-zoom-perl/t/12-query.t
    trunk/libnet-z3950-zoom-perl/t/13-resultset.t
    trunk/libnet-z3950-zoom-perl/t/14-sorting.t
    trunk/libnet-z3950-zoom-perl/t/15-scan.t
    trunk/libnet-z3950-zoom-perl/t/16-packages.t
    trunk/libnet-z3950-zoom-perl/t/17-logging.t
    trunk/libnet-z3950-zoom-perl/t/18-charset.t
    trunk/libnet-z3950-zoom-perl/t/19-events.t
    trunk/libnet-z3950-zoom-perl/t/2-ZOOM.t
    trunk/libnet-z3950-zoom-perl/t/20-options.t
    trunk/libnet-z3950-zoom-perl/t/21-option-callback.t
    trunk/libnet-z3950-zoom-perl/t/22-query.t
    trunk/libnet-z3950-zoom-perl/t/23-resultset.t
    trunk/libnet-z3950-zoom-perl/t/24-sorting.t
    trunk/libnet-z3950-zoom-perl/t/25-scan.t
    trunk/libnet-z3950-zoom-perl/t/26-packages.t
    trunk/libnet-z3950-zoom-perl/t/27-logging.t
    trunk/libnet-z3950-zoom-perl/t/28-charset.t
    trunk/libnet-z3950-zoom-perl/t/29-events.t
    trunk/libnet-z3950-zoom-perl/typemap

Modified: trunk/libnet-z3950-zoom-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/Changes?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/Changes (original)
+++ trunk/libnet-z3950-zoom-perl/Changes Sat Jun 12 15:05:00 2010
@@ -1,14 +1,26 @@
-$Id: Changes,v 1.82 2008-09-29 16:23:18 mike Exp $
-
 Revision history for Perl extension Net::Z3950::ZOOM.
 
-1.25  [IN PROGRESS]
+1.26  Tue Jun  8 16:43:29 BST 2010
+	- Tweak the test-suite so that it works correctly on Fedora
+	  Core 12 (2.6.31.5-127.fc12.x86_64).  For some reason,
+	  attempts to connect to a non-existent host can fail with
+	  ERROR_TIMEOUT and no addinfo, rather than ERROR_CONNECT and
+	  the hostname as addinfo; and the number of terms to request
+	  in a scan needs to be explicitly specified in an option.
+	- Add "debclean" target to generated Makefile.
+	- Remove extraneous and misleading old CVS IDs.
+
+1.25  Fri Feb 19 15:04:26 GMT 2010
 	- Fix test-suite not to run the "packages" tests against
 	  test.indexdata.com, which has gone away, but against
 	  z3950.indexdata.com, like the other tests.  A new server
 	  runs on a different port for these tests.
 	- Rename zdump.pl to zoomdump, and add it to the set of
 	  programs installed.
+	- Switch to git for version control.  Not that it should make
+	  any difference to the Perl distribution.
+	- Add semicolons to the commented-out sample configuration
+	  lines for Windows in Makefile.PL
 
 1.24  Tue Jun 17 11:31:08 BST 2008
 	- When Net::Z3950::ZOOM::record_get() fetches an XML record

Modified: trunk/libnet-z3950-zoom-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/MANIFEST?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/MANIFEST (original)
+++ trunk/libnet-z3950-zoom-perl/MANIFEST Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: MANIFEST,v 1.35 2008-09-26 12:02:19 mike Exp $
-
 Changes
 Makefile.PL
 MANIFEST

Modified: trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP (original)
+++ trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP Sat Jun 12 15:05:00 2010
@@ -1,7 +1,5 @@
-# $Id: MANIFEST.SKIP,v 1.5 2007-11-19 12:58:55 mike Exp $
-
 .cvsignore
-CVS
+.git
 debian
 lib/CVS
 t/CVS

Modified: trunk/libnet-z3950-zoom-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/META.yml?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/META.yml (original)
+++ trunk/libnet-z3950-zoom-perl/META.yml Sat Jun 12 15:05:00 2010
@@ -1,11 +1,14 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Net-Z3950-ZOOM
-version:      1.25
-version_from: lib/Net/Z3950/ZOOM.pm
-installdirs:  site
-requires:
+--- #YAML:1.0
+name:                Net-Z3950-ZOOM
+version:             1.26
+abstract:            Perl extension for invoking the ZOOM-C API.
+license:             ~
+author:              
+    - Mike Taylor <mike@>
+generated_by:        ExtUtils::MakeMaker version 6.42
+distribution_type:   module
+requires:     
     MARC::Record:                  1.38
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30_01
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: trunk/libnet-z3950-zoom-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/Makefile.PL?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/Makefile.PL (original)
+++ trunk/libnet-z3950-zoom-perl/Makefile.PL Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: Makefile.PL,v 1.27 2008-09-16 12:44:28 mike Exp $
-
 # Use: perl Makefile.PL OPTIMIZE="-O0 -g -Wdeclaration-after-statement"
 #  or: perl Makefile.PL PREFIX=/home/mike/universe
 
@@ -22,8 +20,8 @@
 check_version($yazver, "2.1.50");
 
 # For Windows use
-# $yazinc = '-Ic:\yaz\include'
-# $yazlibs = 'c:\yaz\lib\yaz.lib'
+# $yazinc = '-Ic:\yaz\include';
+# $yazlibs = 'c:\yaz\lib\yaz.lib';
 
 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
 # the contents of the Makefile that is written.
@@ -70,5 +68,8 @@
 	rm -rf debian/output
 	mkdir debian/output
 	mv ../libnet-z3950-zoom-perl* debian/output
+
+debclean:
+	rm -rf debian/libnet-z3950-zoom-perl debian/output
 ";
 }

Modified: trunk/libnet-z3950-zoom-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/README?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/README (original)
+++ trunk/libnet-z3950-zoom-perl/README Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-$Id: README,v 1.7 2007/01/16 11:16:15 mike Exp $
-
 The Net::Z3950::ZOOM, ZOOM and Net::Z3950 modules
 =================================================
 

Modified: trunk/libnet-z3950-zoom-perl/ZOOM.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/ZOOM.xs?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/ZOOM.xs (original)
+++ trunk/libnet-z3950-zoom-perl/ZOOM.xs Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-/* $Id: ZOOM.xs,v 1.51 2008-05-14 13:31:39 mike Exp $ */
-
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -405,8 +403,8 @@
 ZOOM_scanset_term(scan, pos, occ, len)
 	ZOOM_scanset scan
 	size_t pos
-	int& occ
-	int& len
+	size_t& occ
+	size_t& len
 	OUTPUT:
 		RETVAL
 		occ
@@ -416,8 +414,8 @@
 ZOOM_scanset_display_term(scan, pos, occ, len)
 	ZOOM_scanset scan
 	size_t pos
-	int& occ
-	int& len
+	size_t& occ
+	size_t& len
 	OUTPUT:
 		RETVAL
 		occ

Modified: trunk/libnet-z3950-zoom-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/debian/changelog?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/debian/changelog (original)
+++ trunk/libnet-z3950-zoom-perl/debian/changelog Sat Jun 12 15:05:00 2010
@@ -1,3 +1,9 @@
+libnet-z3950-zoom-perl (1.26-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sat, 12 Jun 2010 17:01:34 +0200
+
 libnet-z3950-zoom-perl (1.25-2) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libnet-z3950-zoom-perl/lib/Net/Z3950.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/lib/Net/Z3950.pm?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/lib/Net/Z3950.pm (original)
+++ trunk/libnet-z3950-zoom-perl/lib/Net/Z3950.pm Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: Z3950.pm,v 1.2 2007/02/26 15:58:33 mike Exp $
-
 use strict;
 use warnings;
 use Net::Z3950::ZOOM;

Modified: trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm (original)
+++ trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm Sat Jun 12 15:05:00 2010
@@ -1,12 +1,10 @@
-# $Id: ZOOM.pm,v 1.42 2008-09-29 16:22:25 mike Exp $
-
 package Net::Z3950::ZOOM; 
 
 use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.25';
+our $VERSION = '1.26';
 
 require XSLoader;
 XSLoader::load('Net::Z3950::ZOOM', $VERSION);

Modified: trunk/libnet-z3950-zoom-perl/lib/ZOOM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/lib/ZOOM.pm?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/lib/ZOOM.pm (original)
+++ trunk/libnet-z3950-zoom-perl/lib/ZOOM.pm Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: ZOOM.pm,v 1.50 2008-05-14 13:33:31 mike Exp $
-
 use strict;
 use warnings;
 use IO::File;

Modified: trunk/libnet-z3950-zoom-perl/lib/ZOOM.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/lib/ZOOM.pod?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/lib/ZOOM.pod (original)
+++ trunk/libnet-z3950-zoom-perl/lib/ZOOM.pod Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: ZOOM.pod,v 1.46 2007-12-10 21:51:40 mike Exp $
-
 use strict;
 use warnings;
 

Modified: trunk/libnet-z3950-zoom-perl/samples/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/README?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/README (original)
+++ trunk/libnet-z3950-zoom-perl/samples/README Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-$Id: README,v 1.6 2006/04/07 13:06:13 mike Exp $
-
 This area contains sample programs that exercise all three of the APIs
 supported by this module.  The programs for each API are contained in
 separate subdirectories:

Modified: trunk/libnet-z3950-zoom-perl/samples/ccl/default.bib
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/ccl/default.bib?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/ccl/default.bib (original)
+++ trunk/libnet-z3950-zoom-perl/samples/ccl/default.bib Sat Jun 12 15:05:00 2010
@@ -1,5 +1,4 @@
 # CCL field mappings
-# $Id: default.bib,v 1.1 2006/06/13 16:44:21 mike Exp $
 # 
 # The rule below is used when no fields are specified
 term t=l,r  s=al

Modified: trunk/libnet-z3950-zoom-perl/samples/cql/pqf.properties
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/cql/pqf.properties?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/cql/pqf.properties (original)
+++ trunk/libnet-z3950-zoom-perl/samples/cql/pqf.properties Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: pqf.properties,v 1.1 2005/12/21 00:16:31 mike Exp $
-#
 # Propeties file to drive org.z3950.zing.cql.CQLNode's toPQF()
 # back-end and the YAZ CQL-to-PQF converter.  This specifies the
 # interpretation of various CQL indexes, relations, etc. in terms

Modified: trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/async.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/async.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/async.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/async.pl Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: async.pl,v 1.4 2008-05-14 13:34:00 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
 # for example:

Modified: trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst1.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst1.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst1.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst1.pl Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: zoomtst1.pl,v 1.4 2008-05-14 13:34:00 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch zoomtst1.pl <target> <query>
 

Modified: trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst3.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst3.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst3.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/net-z3950-zoom/zoomtst3.pl Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: zoomtst3.pl,v 1.9 2008-05-14 13:34:00 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
 # for example:

Modified: trunk/libnet-z3950-zoom-perl/samples/net-z3950/zoomtst1.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/net-z3950/zoomtst1.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/net-z3950/zoomtst1.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/net-z3950/zoomtst1.pl Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: zoomtst1.pl,v 1.4 2006/11/02 17:48:25 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch zoomtst1.pl <target> <query>
 

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/async.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/async.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/async.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/async.pl Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: async.pl,v 1.2 2006/11/02 17:48:26 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch async.pl <t1> [...] <tN> <query>
 # for example:

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/update.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/update.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/update.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/update.pl Sat Jun 12 15:05:00 2010
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -w
-
-# $Id: update.pl,v 1.1 2006/06/05 16:33:42 mike Exp $
 
 use strict;
 use warnings;

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/zhello.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/zhello.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/zhello.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/zhello.pl Sat Jun 12 15:05:00 2010
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -w
-
-# $Id: zhello.pl,v 1.1 2006/12/06 11:16:26 mike Exp $
 
 use strict;
 use warnings;

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/zoomdump
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/zoomdump?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/zoomdump (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/zoomdump Sat Jun 12 15:05:00 2010
@@ -1,7 +1,5 @@
 #!/usr/bin/perl -w
 
-# $Id: zoomdump,v 1.2 2007-03-07 11:34:26 mike Exp $
-#
 # Dumps the contents of the nominated Zebra database to a set of
 # separate XML files with numeric names.
 

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/zoomscan.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/zoomscan.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/zoomscan.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/zoomscan.pl Sat Jun 12 15:05:00 2010
@@ -1,7 +1,5 @@
 #!/usr/bin/perl -w
 
-# $Id: zoomscan.pl,v 1.5 2008-05-14 13:27:32 mike Exp $
-#
 # This is the scanning counterpart to zoomscan.pl's searching
 # perl -I../../blib/lib -I../../blib/arch zoomscan.pl <target> <scanQuery>
 #

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst1.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst1.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst1.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst1.pl Sat Jun 12 15:05:00 2010
@@ -1,7 +1,5 @@
 #!/usr/bin/perl -w
 
-# $Id: zoomtst1.pl,v 1.6 2007/08/17 18:35:17 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch zoomtst1.pl <target> <query>
 

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst3.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst3.pl?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst3.pl (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/zoomtst3.pl Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: zoomtst3.pl,v 1.6 2006/11/02 17:48:26 mike Exp $
-#
 # See ../README for a description of this program.
 # perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
 # for example:

Modified: trunk/libnet-z3950-zoom-perl/samples/zoom/zselect
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/samples/zoom/zselect?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/samples/zoom/zselect (original)
+++ trunk/libnet-z3950-zoom-perl/samples/zoom/zselect Sat Jun 12 15:05:00 2010
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -w
-
-# $Id: zselect,v 1.3 2007/04/18 11:18:08 mike Exp $
 
 # Example command-line:
 #	./zselect -t q localhost:3313/IR-Explain---1 "net.port=3950" "concat(zeerex:serverInfo/zeerex:host, ':', zeerex:serverInfo/zeerex:port, '/', zeerex:serverInfo/zeerex:database)"

Modified: trunk/libnet-z3950-zoom-perl/t/1-Net-Z3950-ZOOM.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/1-Net-Z3950-ZOOM.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/1-Net-Z3950-ZOOM.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/1-Net-Z3950-ZOOM.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.17 2008-05-14 13:32:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t'
 
@@ -19,8 +17,10 @@
 my $host = "no.such.host";
 my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
-ok($errcode == Net::Z3950::ZOOM::ERROR_CONNECT && $addinfo eq $host,
-   "connection to non-existent host '$host' fails");
+# For some reason, Red Hat signals this as a TIMEOUT rather than a CONNECT
+ok(($errcode == Net::Z3950::ZOOM::ERROR_CONNECT && $addinfo eq $host) ||
+   ($errcode == Net::Z3950::ZOOM::ERROR_TIMEOUT && $addinfo eq ""),
+   "connection to non-existent host '$host' fails: errcode=$errcode, addinfo=$addinfo");
 
 $host = "z3950.indexdata.com/gils";
 $conn = Net::Z3950::ZOOM::connection_new($host, 0);

Modified: trunk/libnet-z3950-zoom-perl/t/10-options.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/10-options.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/10-options.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/10-options.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 10-options.t,v 1.1 2005/10/18 17:01:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 10-options.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/11-option-callback.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/11-option-callback.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/11-option-callback.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/11-option-callback.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 11-option-callback.t,v 1.2 2005/10/19 15:14:26 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 11-option-callback.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/12-query.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/12-query.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/12-query.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/12-query.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 12-query.t,v 1.11 2008-05-14 13:32:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 12-query.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/13-resultset.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/13-resultset.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/13-resultset.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/13-resultset.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 13-resultset.t,v 1.10 2008-05-14 13:32:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 13-resultset.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/14-sorting.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/14-sorting.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/14-sorting.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/14-sorting.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 14-sorting.t,v 1.9 2008-05-14 13:32:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 14-sorting.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/15-scan.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/15-scan.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/15-scan.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/15-scan.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 15-scan.t,v 1.14 2007/08/16 17:19:35 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 15-scan.t'
 
@@ -16,6 +14,7 @@
 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
 ok($errcode == 0, "connection to '$host'");
 
+Net::Z3950::ZOOM::connection_option_set($conn, number => 10);
 my($ss, $n) = scan($conn, 0, "w", 10);
 
 my @terms = ();
@@ -127,6 +126,6 @@
 
     my $n = Net::Z3950::ZOOM::scanset_size($ss);
     ok(defined $n, "got size");
-    ok($n == $nexpected, "got $n terms (expected $nexpected)");
+    ok($n == $nexpected, "got $n terms '$startterm' (expected $nexpected)");
     return ($ss, $n);
 }

Modified: trunk/libnet-z3950-zoom-perl/t/16-packages.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/16-packages.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/16-packages.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/16-packages.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 16-packages.t,v 1.14 2008-09-29 15:49:13 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 16-packages.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/17-logging.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/17-logging.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/17-logging.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/17-logging.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 17-logging.t,v 1.4 2005/12/22 12:52:45 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 17-logging.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/18-charset.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/18-charset.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/18-charset.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/18-charset.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 18-charset.t,v 1.2 2008-05-14 13:32:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 18-charset.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/19-events.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/19-events.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/19-events.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/19-events.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 19-events.t,v 1.8 2007/02/22 20:38:11 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 19-events.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/2-ZOOM.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/2-ZOOM.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/2-ZOOM.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/2-ZOOM.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 2-ZOOM.t,v 1.13 2007/09/14 10:36:13 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 2-ZOOM.t'
 
@@ -17,9 +15,11 @@
 my $host = "no.such.host";
 my $conn;
 eval { $conn = new ZOOM::Connection($host, 0) };
+# For some reason, Red Hat signals this as a TIMEOUT rather than a CONNECT
 ok($@ && $@->isa("ZOOM::Exception") &&
-   $@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host,
-   "connection to non-existent host '$host' fails");
+   (($@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host) ||
+    ($@->code() == ZOOM::Error::TIMEOUT && $@->addinfo() eq "")),
+   "connection to non-existent host '$host' fails: \$\@=$@");
 
 $host = "z3950.indexdata.com/gils";
 eval { $conn = new ZOOM::Connection($host, 0) };

Modified: trunk/libnet-z3950-zoom-perl/t/20-options.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/20-options.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/20-options.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/20-options.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 20-options.t,v 1.1 2005/10/19 13:53:47 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 20-options.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/21-option-callback.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/21-option-callback.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/21-option-callback.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/21-option-callback.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 21-option-callback.t,v 1.1 2005/10/24 16:42:31 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 21-option-calback.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/22-query.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/22-query.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/22-query.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/22-query.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 22-query.t,v 1.11 2006/11/02 17:48:26 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 22-query.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/23-resultset.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/23-resultset.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/23-resultset.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/23-resultset.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 23-resultset.t,v 1.6 2006/11/28 16:47:19 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 23-resultset.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/24-sorting.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/24-sorting.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/24-sorting.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/24-sorting.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 24-sorting.t,v 1.7 2006/11/02 17:48:26 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 24-sorting.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/25-scan.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/25-scan.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/25-scan.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/25-scan.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 25-scan.t,v 1.11 2007/08/16 17:19:35 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 25-scan.t'
 
@@ -14,6 +12,7 @@
 eval { $conn = new ZOOM::Connection($host, 0) };
 ok(!$@, "connection to '$host'");
 
+$conn->option(number => 10);
 my($ss, $n) = scan($conn, 0, "w", 10);
 
 my @terms = ();
@@ -115,6 +114,6 @@
 
     my $n = $ss->size();
     ok(defined $n, "got size");
-    ok($n == $nexpected, "got $n terms (expected $nexpected)");
+    ok($n == $nexpected, "got $n terms for '$startterm' (expected $nexpected)");
     return ($ss, $n);
 }

Modified: trunk/libnet-z3950-zoom-perl/t/26-packages.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/26-packages.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/26-packages.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/26-packages.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 26-packages.t,v 1.9 2008-09-29 15:49:18 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 26-packages.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/27-logging.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/27-logging.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/27-logging.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/27-logging.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 27-logging.t,v 1.2 2007/02/26 14:56:26 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 27-logging.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/28-charset.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/28-charset.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/28-charset.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/28-charset.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 28-charset.t,v 1.2 2006/04/06 08:15:43 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 28-charset.t'
 

Modified: trunk/libnet-z3950-zoom-perl/t/29-events.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/29-events.t?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/29-events.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/29-events.t Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: 29-events.t,v 1.4 2006/11/02 17:48:26 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 19-events.t'
 

Modified: trunk/libnet-z3950-zoom-perl/typemap
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/typemap?rev=59268&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/typemap (original)
+++ trunk/libnet-z3950-zoom-perl/typemap Sat Jun 12 15:05:00 2010
@@ -1,5 +1,3 @@
-# $Id: typemap,v 1.8 2007-10-29 11:50:49 mike Exp $
-
 ZOOM_connection					T_PTROBJ
 ZOOM_connection *				T_PTROBJ
 ZOOM_options					T_PTROBJ




More information about the Pkg-perl-cvs-commits mailing list