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