r2741 - in /packages/libnet-z3950-perl/branches/upstream/current:
Changes
MANIFEST META.yml Makefile.PL README Z3950.pm Z3950.xs doc/htmlify
samples/fetch1.pl samples/multiplex.pl samples/simple.pl yazwrap/receive.c
yazwrap/send.c
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Tue May 9 20:55:04 UTC 2006
Author: gregoa-guest
Date: Tue May 9 20:55:01 2006
New Revision: 2741
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2741
Log:
Load /tmp/tmp.WzbXy20765/libnet-z3950-perl-0.51 into
packages/libnet-z3950-perl/branches/upstream/current.
Added:
packages/libnet-z3950-perl/branches/upstream/current/META.yml
Modified:
packages/libnet-z3950-perl/branches/upstream/current/Changes
packages/libnet-z3950-perl/branches/upstream/current/MANIFEST
packages/libnet-z3950-perl/branches/upstream/current/Makefile.PL
packages/libnet-z3950-perl/branches/upstream/current/README
packages/libnet-z3950-perl/branches/upstream/current/Z3950.pm
packages/libnet-z3950-perl/branches/upstream/current/Z3950.xs
packages/libnet-z3950-perl/branches/upstream/current/doc/htmlify (props changed)
packages/libnet-z3950-perl/branches/upstream/current/samples/fetch1.pl (props changed)
packages/libnet-z3950-perl/branches/upstream/current/samples/multiplex.pl (props changed)
packages/libnet-z3950-perl/branches/upstream/current/samples/simple.pl (props changed)
packages/libnet-z3950-perl/branches/upstream/current/yazwrap/receive.c
packages/libnet-z3950-perl/branches/upstream/current/yazwrap/send.c
Modified: packages/libnet-z3950-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/Changes?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/Changes (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/Changes Tue May 9 20:55:01 2006
@@ -1,6 +1,11 @@
-$Id: Changes,v 1.75 2005/07/27 12:32:53 mike Exp $
+$Id: Changes,v 1.77 2006/05/08 10:55:26 mike Exp $
Revision history for Perl extension Net::Z3950.
+
+0.51 Mon May 8 11:55:19 BST 2006
+ - Deprecation in favour of ZOOM-Perl.
+ - Fix some compiler warnings.
+ - Fix typo in documentation (thanks to Kimmo Valtonen).
0.50 Wed Jul 27 13:28:03 BST 2005
- Correct the ResultSet::present() fix that was supposed to be
Modified: packages/libnet-z3950-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/MANIFEST?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/MANIFEST Tue May 9 20:55:01 2006
@@ -2,6 +2,7 @@
Changes
MANIFEST
MANIFEST.SKIP
+META.yml
Makefile.PL
README
Z3950.pm
Added: packages/libnet-z3950-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/META.yml?rev=2741&op=file
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/META.yml (added)
+++ packages/libnet-z3950-perl/branches/upstream/current/META.yml Tue May 9 20:55:01 2006
@@ -1,0 +1,11 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Net-Z3950
+version: 0.51
+version_from: Z3950.pm
+installdirs: site
+requires:
+ Event: 0.77
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
Modified: packages/libnet-z3950-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/Makefile.PL?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/Makefile.PL Tue May 9 20:55:01 2006
@@ -1,4 +1,4 @@
-# $Id: Makefile.PL,v 1.11 2004/05/07 17:00:29 mike Exp $
+# $Id: Makefile.PL,v 1.12 2006/05/08 10:55:09 mike Exp $
# If you want to build this module against a YAZ build that's not been
# installed in one of the usual places, just give a full path to where
@@ -11,6 +11,15 @@
if (!$yazinc || !$yazlibs) {
die "ERROR: Unable to call script 'yaz-config': is YAZ installed?";
}
+
+print <<__EOT__;
+
+ WARNING. You should not be using this module unless you need
+ this precise API for compatibility reasons. New applications
+ should use the ZOOM-Perl module (Net::Z3950::ZOOM) instead.
+ http://search.cpan.org/~mirk/Net-Z3950-ZOOM/
+
+__EOT__
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
Modified: packages/libnet-z3950-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/README?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/README (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/README Tue May 9 20:55:01 2006
@@ -1,4 +1,27 @@
-$Header: /home/cvsroot/NetZ3950/README,v 1.12 2004/11/22 22:41:17 mike Exp $
+$Header: /home/cvsroot/NetZ3950/README,v 1.14 2006/05/08 10:54:56 mike Exp $
+
+Do Not Use This Module!
+-----------------------
+
+Unless you need the Net::Z3950 API for backwards compatibility
+(i.e. you're building it because it's a prerequisite for an existing
+application) you should instead use the newer and better ZOOM-Perl
+module:
+ http://search.cpan.org/~mirk/Net-Z3950-ZOOM/
+Its functionality is a strict superset of this module's, but it
+provides many additional features, including record-format
+translation, character-set handling and a properly documented
+asynchronous API. Because it is based on ZOOM-C, the ZOOM-Perl model
+inherits functionality from that module, and will continue to benefit
+from its further development. Finally, the ZOOM-C dependency allows
+the ZOOM-Perl code to be much shorter than Net::Z3950, and therefore
+easier to support: "The cheapest, fastest, most reliable components of
+a computer system are those that are not there" -- Gordon Bell.
+
+If despite all this, you really do want Net::Z3950 rather than
+ZOOM-Perl, then read on ...
+
+
Net::Z3950.pm -- What Is It?
----------------------------
@@ -19,7 +42,7 @@
release 0.33, but it was always the intention.)
Net::Z3950.pm is an implementation of the Perl binding for ZOOM, the
-Z39.50 Obejct Orientation Model. Bindings for the same abstract API
+Z39.50 Object Orientation Model. Bindings for the same abstract API
are available in other languages including C, C++, Java, Tcl, Visual
Basic, Python and Scheme. There's more about ZOOM, including the
specification, at
Modified: packages/libnet-z3950-perl/branches/upstream/current/Z3950.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/Z3950.pm?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/Z3950.pm (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/Z3950.pm Tue May 9 20:55:01 2006
@@ -1,4 +1,4 @@
-# $Id: Z3950.pm,v 1.45 2005/07/27 12:05:51 mike Exp $
+# $Id: Z3950.pm,v 1.47 2006/05/08 10:50:21 mike Exp $
package Net::Z3950;
@@ -11,7 +11,7 @@
require AutoLoader;
@ISA = qw(Exporter DynaLoader);
-$VERSION = '0.50';
+$VERSION = '0.51';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
@@ -42,6 +42,14 @@
=head1 NAME
Net::Z3950 - Perl extension for talking to Z39.50 servers.
+
+=head1 WARNING
+
+You should not be using this module unless you need
+this precise API for compatibility reasons. New applications
+should use the ZOOM-Perl module (Net::Z3950::ZOOM) instead.
+
+http://search.cpan.org/~mirk/Net-Z3950-ZOOM/
=head1 SYNOPSIS
@@ -276,7 +284,7 @@
=head2 errstr()
$errcode = $conn->errcode();
- $errmsg = Net::Z3950::errmsg($errcode);
+ $errmsg = Net::Z3950::errstr($errcode);
print "error $errcode ($errmsg)\n";
Returns an English-language string describing the error indicated by
Modified: packages/libnet-z3950-perl/branches/upstream/current/Z3950.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/Z3950.xs?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/Z3950.xs (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/Z3950.xs Tue May 9 20:55:01 2006
@@ -1,4 +1,4 @@
-/* $Header: /home/cvsroot/NetZ3950/Z3950.xs,v 1.6 2004/11/01 08:31:43 adam Exp $ */
+/* $Header: /home/cvsroot/NetZ3950/Z3950.xs,v 1.7 2006/05/08 10:54:41 mike Exp $ */
#include "EXTERN.h"
#include "perl.h"
@@ -37,12 +37,14 @@
* to surgically remove this code, so we leave it in for now -- the
* overhead can't be great.
*/
+#if 0
static int
not_here(char *s)
{
croak("%s not implemented on this architecture", s);
return -1;
}
+#endif
static double
constant(char *name, int arg)
@@ -103,10 +105,6 @@
break;
}
errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
return 0;
}
Propchange: packages/libnet-z3950-perl/branches/upstream/current/doc/htmlify
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Tue May 9 20:55:01 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libnet-z3950-perl/branches/upstream/current/samples/fetch1.pl
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Tue May 9 20:55:01 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libnet-z3950-perl/branches/upstream/current/samples/multiplex.pl
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Tue May 9 20:55:01 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libnet-z3950-perl/branches/upstream/current/samples/simple.pl
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Tue May 9 20:55:01 2006
@@ -1,0 +1,1 @@
+*
Modified: packages/libnet-z3950-perl/branches/upstream/current/yazwrap/receive.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/yazwrap/receive.c?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/yazwrap/receive.c (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/yazwrap/receive.c Tue May 9 20:55:01 2006
@@ -1,4 +1,4 @@
-/* $Header: /home/cvsroot/NetZ3950/yazwrap/receive.c,v 1.19 2005/04/19 21:36:35 mike Exp $ */
+/* $Header: /home/cvsroot/NetZ3950/yazwrap/receive.c,v 1.20 2006/05/08 10:54:22 mike Exp $ */
/*
* yazwrap/receive.c -- wrapper functions for Yaz's client API.
@@ -297,11 +297,11 @@
setNumber(hv, "deleteOperationStatus", (IV) *res->deleteOperationStatus);
/* ### We needn't bother with _any_ of this, really */
- /* Z_ListStatuses *deleteListStatuses; /* OPT */
- /* int *numberNotDeleted; /* OPT */
- /* Z_ListStatuses *bulkStatuses; /* OPT */
- /* Z_InternationalString *deleteMessage; /* OPT */
- /* Z_OtherInformation *otherInfo; /* OPT */
+ /* Z_ListStatuses *deleteListStatuses; (OPT) */
+ /* int *numberNotDeleted; (OPT) */
+ /* Z_ListStatuses *bulkStatuses; (OPT) */
+ /* Z_InternationalString *deleteMessage; (OPT) */
+ /* Z_OtherInformation *otherInfo; (OPT) */
return sv;
}
@@ -520,7 +520,7 @@
switch (x->which) {
case Z_Term_general:
- setBuffer(hv, "general", x->u.general->buf, x->u.general->len);
+ setBuffer(hv, "general", (char*) x->u.general->buf, x->u.general->len);
break;
case Z_Term_numeric:
/* ### this won't do at all */
@@ -879,7 +879,7 @@
if (rs[i].val == VAL_NOP)
fatal("can't translate record of unknown RS");
- return newObject(rs[i].name, newSVpvn(x->buf, x->len));
+ return newObject(rs[i].name, newSVpvn((char*) x->buf, x->len));
}
Modified: packages/libnet-z3950-perl/branches/upstream/current/yazwrap/send.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnet-z3950-perl/branches/upstream/current/yazwrap/send.c?rev=2741&op=diff
==============================================================================
--- packages/libnet-z3950-perl/branches/upstream/current/yazwrap/send.c (original)
+++ packages/libnet-z3950-perl/branches/upstream/current/yazwrap/send.c Tue May 9 20:55:01 2006
@@ -1,4 +1,4 @@
-/* $Header: /home/cvsroot/NetZ3950/yazwrap/send.c,v 1.11 2005/07/27 12:07:00 mike Exp $ */
+/* $Header: /home/cvsroot/NetZ3950/yazwrap/send.c,v 1.12 2006/05/08 10:54:14 mike Exp $ */
/*
* yazwrap/send.c -- wrapper functions for Yaz's client API.
@@ -326,7 +326,7 @@
yaz_pqf_scan(pqf_parser, odr, &req->attributeSet, query)))
{
size_t off;
- int code = yaz_pqf_error (pqf_parser,(const char **) errmsgp, &off);
+ (void) yaz_pqf_error (pqf_parser,(const char **) errmsgp, &off);
yaz_pqf_destroy (pqf_parser);
return nodata(*errmsgp);
}
@@ -413,7 +413,7 @@
if (refId.data == 0)
return 0;
- buf->buf = refId.data;
+ buf->buf = (unsigned char*) refId.data;
buf->len = (int) refId.len;
return buf;
}
@@ -448,6 +448,7 @@
{
databuf res;
int len;
+ res.len = 0; /* Not needed, but prevents compiler warning */
res.data = 0;
if (!z_APDU(odr, &apdu, 0, (char*) 0)) {
@@ -487,6 +488,7 @@
fprintf(stderr, "DEBUG nodata(): %s\n", msg);
}
#endif
+ buf.len = 0; /* Not needed, but prevents compiler warning */
buf.data = 0;
return buf;
}
More information about the Pkg-perl-cvs-commits
mailing list