r39639 - in /branches/upstream/librpc-xml-perl/current: ./ lib/Apache/RPC/ lib/RPC/ lib/RPC/XML/ t/
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Fri Jul 10 04:26:35 UTC 2009
Author: carnil-guest
Date: Fri Jul 10 04:26:20 2009
New Revision: 39639
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39639
Log:
[svn-upgrade] Integrating new upstream version, librpc-xml-perl (0.66)
Modified:
branches/upstream/librpc-xml-perl/current/ChangeLog
branches/upstream/librpc-xml-perl/current/ChangeLog.xml
branches/upstream/librpc-xml-perl/current/META.yml
branches/upstream/librpc-xml-perl/current/Makefile.PL
branches/upstream/librpc-xml-perl/current/README
branches/upstream/librpc-xml-perl/current/SIGNATURE
branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Server.pm
branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Status.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Client.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Function.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Method.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Parser.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Procedure.pm
branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Server.pm
branches/upstream/librpc-xml-perl/current/t/40_server.t
branches/upstream/librpc-xml-perl/current/t/50_client.t
branches/upstream/librpc-xml-perl/current/t/60_net_server.t
branches/upstream/librpc-xml-perl/current/t/util.pl
Modified: branches/upstream/librpc-xml-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/ChangeLog?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/ChangeLog (original)
+++ branches/upstream/librpc-xml-perl/current/ChangeLog Fri Jul 10 04:26:20 2009
@@ -8,6 +8,35 @@
protocol in terms of supporting HTTP/1.1 and
allowing choice of character-set encodings for
XML messages.
+
+0.66 Thursday July 9, 2009, 07:36:15 AM -0700
+
+ * lib/RPC/XML/Client.pm
+ * lib/RPC/XML/Server.pm
+ RT #47219: Re-did the detection of compression availability
+ (testing for the Compress::Zlib module) based on comments in
+ this bug.
+
+ * t/60_net_server.t
+ RT #47220: Net::Server tests are not (currently) viable on
+ Windows. Also made script taint-safe.
+
+ * t/40_server.t
+ * t/50_client.t
+ * t/util.pl
+ RT #47221: Applied a patch from kmx at volny.cz, for better
+ Windows testing.
+
+ * lib/Apache/RPC/Server.pm
+ * lib/Apache/RPC/Status.pm
+ * lib/RPC/XML.pm
+ * lib/RPC/XML/Client.pm
+ * lib/RPC/XML/Function.pm
+ * lib/RPC/XML/Method.pm
+ * lib/RPC/XML/Parser.pm
+ * lib/RPC/XML/Procedure.pm
+ * lib/RPC/XML/Server.pm
+ All modules now use the "warnings" pragma.
0.65 Wednesday June 17, 2009, 06:00:00 AM -0700
@@ -1116,7 +1145,7 @@
* *
All files are tracked from this point forward.
-# Generated on Wednesday June 17, 2009, 06:03:27 AM -0700
+# Generated on Thursday July 9, 2009, 07:38:10 AM -0700
# Using changelog2x/0.10, App::Changelog2x/0.10, XML::LibXML/1.69,
# XML::LibXSLT/1.68, libxml/2.6.32, libxslt/1.1.24 (with exslt)
# XSLT sources:
Modified: branches/upstream/librpc-xml-perl/current/ChangeLog.xml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/ChangeLog.xml?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/ChangeLog.xml (original)
+++ branches/upstream/librpc-xml-perl/current/ChangeLog.xml Fri Jul 10 04:26:20 2009
@@ -15,6 +15,54 @@
extensions to the base protocol in terms of supporting HTTP/1.1 and
allowing choice of character-set encodings for XML messages.
</description>
+ <release date="2009-07-09T07:36:15-07:00" version="0.66" sc:tag="0.66">
+ <change git:commit="d7469ec822d50fdc48642dae60c18d0a6bd5c641">
+ <fileset>
+ <file path="lib/RPC/XML/Client.pm" />
+ <file path="lib/RPC/XML/Server.pm" />
+ </fileset>
+ <description>
+ <xhtml:a href="http://rt.cpan.org/Ticket/Display.html?id=47219">RT #47219</xhtml:a>:
+ Re-did the detection of compression availability (testing for the
+ Compress::Zlib module) based on comments in this bug.
+ </description>
+ </change>
+ <change git:commit="8ce60bd0d5f982ea435760f24a1fdd92eaea614d">
+ <file path="t/60_net_server.t" />
+ <description>
+ <xhtml:a href="http://rt.cpan.org/Ticket/Display.html?id=47220">RT #47220</xhtml:a>:
+ Net::Server tests are not (currently) viable on Windows. Also made
+ script taint-safe.
+ </description>
+ </change>
+ <change git:commit="b3f8e9474a51914ed599d3e6c50d5413445335c4">
+ <fileset>
+ <file path="t/40_server.t"/>
+ <file path="t/50_client.t"/>
+ <file path="t/util.pl"/>
+ </fileset>
+ <description>
+ <xhtml:a href="http://rt.cpan.org/Ticket/Display.html?id=47221">RT #47221</xhtml:a>:
+ Applied a patch from kmx at volny.cz, for better Windows testing.
+ </description>
+ </change>
+ <change git:commit="32fc7eb768bb0e10cb7014e698d5be4fc2cf8689">
+ <fileset>
+ <file path="lib/Apache/RPC/Server.pm"/>
+ <file path="lib/Apache/RPC/Status.pm"/>
+ <file path="lib/RPC/XML.pm"/>
+ <file path="lib/RPC/XML/Client.pm"/>
+ <file path="lib/RPC/XML/Function.pm"/>
+ <file path="lib/RPC/XML/Method.pm"/>
+ <file path="lib/RPC/XML/Parser.pm"/>
+ <file path="lib/RPC/XML/Procedure.pm"/>
+ <file path="lib/RPC/XML/Server.pm"/>
+ </fileset>
+ <description>
+ All modules now use the "warnings" pragma.
+ </description>
+ </change>
+ </release>
<release date="2009-06-17T06:00:00-07:00" version="0.65" sc:tag="0.65">
<change git:commit="1f4df1152f2edccc25f8e7c3fafcbdcd71987baa">
<fileset>
Modified: branches/upstream/librpc-xml-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/META.yml?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/META.yml (original)
+++ branches/upstream/librpc-xml-perl/current/META.yml Fri Jul 10 04:26:20 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: RPC-XML
-version: 0.65
+version: 0.66
abstract: Data, client and server classes for XML-RPC
author:
- Randy J. Ray
@@ -22,7 +22,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.52
+generated_by: ExtUtils::MakeMaker version 6.54
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/librpc-xml-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/Makefile.PL?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/Makefile.PL (original)
+++ branches/upstream/librpc-xml-perl/current/Makefile.PL Fri Jul 10 04:26:20 2009
@@ -84,7 +84,7 @@
WriteMakefile(
NAME => 'RPC::XML',
- VERSION => '0.65',
+ VERSION => '0.66',
AUTHOR => 'Randy J. Ray',
ABSTRACT => 'Data, client and server classes for XML-RPC',
EXE_FILES => \@scripts,
Modified: branches/upstream/librpc-xml-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/README?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/README (original)
+++ branches/upstream/librpc-xml-perl/current/README Fri Jul 10 04:26:20 2009
@@ -1,6 +1,6 @@
RPC::XML - An implementation of XML-RPC
-Version: 0.65
+Version: 0.66
WHAT IS IT
@@ -66,69 +66,21 @@
CHANGES
-* etc/make_method
-* etc/rpc-method.dtd
-* lib/RPC/XML/Procedure.pm
-* t/30_method.t
-* t/35_namespaces.t (added)
-* t/namespace1.xpl (added)
-* t/namespace2.xpl (added)
-* t/namespace3.xpl (added)
-Support for declaration of namespaces in XPL code. Adds a new
-test suite and includes a rewrite/update of the method tests.
-Change also covers the make_method tool and the DTD for XPL
-files.
-
-* lib/RPC/XML.pm
* lib/RPC/XML/Client.pm
* lib/RPC/XML/Server.pm
-* t/02_pod_coverage.t
-Interim fix for encoding issues, prior to the mega-encoding
-work. This makes the library correctly create octet-based
-messages, rather than letting UTF-8 leak in if it was passed in
-initially.
+RT #47219: Re-did the detection of compression availability
+(testing for the Compress::Zlib module) based on comments in
+this bug.
-* lib/Apache/RPC/Server.pm
-* lib/RPC/XML.pm
-* lib/RPC/XML/Client.pm
-Follow-up to previous commit, some serialization-related
-problems. Not all instances of bytelength() had been removed
-after the previous slate of changes, and once that was done
-some tests in 15_serialize.t broke.
-
-* lib/RPC/XML.pm
-* lib/RPC/XML/Parser.pm
-* t/12_nil.t (added)
-* t/30_method.t
-RT #34132: Based on a patch from the requestor, added support
-for <nil/>. Documentation and tests are present, but a little
-sparse. This change also incorporates a small add to
-lib/RPC/XML/Parser.pm to address RT #42033.
+* t/60_net_server.t
+RT #47220: Net::Server tests are not (currently) viable on
+Windows. Also made script taint-safe.
* t/40_server.t
-* t/41_server_hang.t
-RT #27778: Fix problems with child-process management on
-Windows that was causing t/40_server.t to hang during test
-runs. Also put skip-clause into t/41_server_hang.t, as
-according to the person reporting, it doesn't work at all on
-MSWin (the network code is very UNIX-y).
-
-* lib/RPC/XML.pm
-* t/10_data.t
-Applied a regexp-fix from Joakim Mared for stringification of
-doubles.
-
-* lib/RPC/XML.pm
-* lib/RPC/XML/Client.pm
-* lib/RPC/XML/Parser.pm
-* lib/RPC/XML/Procedure.pm
-* lib/RPC/XML/Server.pm
-* t/10_data.t
-RT ticket #35106: Make the behavior of RPC::XML::array
-constructor work as expected. This led to adding use of
-Scalar::Util and cleaning up the places where I was still doing
-"UNIVERSAL::isa(...)" hacks to test refs without the risk of
-directly calling ->isa() on a potentially-unblessed ref.
+* t/50_client.t
+* t/util.pl
+RT #47221: Applied a patch from kmx at volny.cz, for better
+Windows testing.
* lib/Apache/RPC/Server.pm
* lib/Apache/RPC/Status.pm
@@ -139,26 +91,4 @@
* lib/RPC/XML/Parser.pm
* lib/RPC/XML/Procedure.pm
* lib/RPC/XML/Server.pm
-Update the copyright year and license information, and add
-contact data to all POD sections for RT, AnnoCPAN, GitHub, etc.
-
-* lib/RPC/XML/Client.pm
-* t/50_client.t
-RT ticket #34559: Allow control of LWP::UA timeouts from within
-client class.
-
-* lib/RPC/XML/Server.pm
-RT ticket #43019: Small hack to the existing SSL hack for
-Socket6 problems.
-
-* lib/Apache/RPC/Server.pm
-* lib/Apache/RPC/Status.pm
-* lib/RPC/XML.pm
-* lib/RPC/XML/Client.pm
-* lib/RPC/XML/Function.pm
-* lib/RPC/XML/Method.pm
-* lib/RPC/XML/Parser.pm
-* lib/RPC/XML/Procedure.pm
-* lib/RPC/XML/Server.pm
-Since Scalar::Util requires 5.006, make that (5.006001,
-actually) the base required Perl version.
+All modules now use the "warnings" pragma.
Modified: branches/upstream/librpc-xml-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/SIGNATURE?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/SIGNATURE (original)
+++ branches/upstream/librpc-xml-perl/current/SIGNATURE Fri Jul 10 04:26:20 2009
@@ -14,12 +14,12 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 2362e621829c3f10d79f8e1e0ff1b1d970dc5483 ChangeLog
-SHA1 73a8787904a21c0ed6479dc902e38e81b2b426fc ChangeLog.xml
+SHA1 feb330708524619c424c588955a1e117fe1793c3 ChangeLog
+SHA1 3faeffd41763adfca6c99c0ed5646b69322d4252 ChangeLog.xml
SHA1 ccb9bb6b01c777a7dbd8b62d713ea73455eb0af0 MANIFEST
-SHA1 0ee53f6f302842be2925b1f3fb78a790463ee077 META.yml
-SHA1 8845580006ba942332370a9ce7956b30273a73c0 Makefile.PL
-SHA1 8c1431f5987f4936eb823a738c6486b79a8d7883 README
+SHA1 e39371c894f2cd39ad6b658cb1641adc0358f2d2 META.yml
+SHA1 1984430c2418745903a04e33dbdf6f874831ee7b Makefile.PL
+SHA1 3b68f4977cb022558478d350f6278a419af39d20 README
SHA1 d210d832fa02c0f0b79d7c5c65c4a72c3315e230 README.apache2
SHA1 4389a5f0ad9caa86b4d3d2578dcabe67105302ca etc/make_method
SHA1 e6a42047da332c81c196ce8f043977d25ccfde8e etc/rpc-method.dtd
@@ -31,18 +31,18 @@
SHA1 c7f4c28760897c7e2ed81e94445abe22fc663aaf ex/linux.proc.meminfo.base
SHA1 0d5d3d59e82e2466147878e7ffc543d43535e7c9 ex/linux.proc.meminfo.code
SHA1 a452d760da2e94baf64cc660c965753ba2b05195 ex/linux.proc.meminfo.help
-SHA1 f7bf772284e799c276b66758ff3f95c5995ab499 lib/Apache/RPC/Server.pm
-SHA1 f729a6ac25a591a49fd2a3fe653153a709191d34 lib/Apache/RPC/Status.pm
+SHA1 65c5911c4694b4ef90ca1711bde8a95af7e099b2 lib/Apache/RPC/Server.pm
+SHA1 de5b7a8ed21ae70649ca1a3c2b243def2cd10092 lib/Apache/RPC/Status.pm
SHA1 644075447f174b9c5704aece6c8a11988a6feb33 lib/Apache/RPC/status.base
SHA1 d87580bfe927be390284fd2f3712ba2b5f4173b2 lib/Apache/RPC/status.code
SHA1 9ef9b17398ef8bd90a84d6b64b7721a9ed7717af lib/Apache/RPC/status.help
-SHA1 4b622700c0355932ca4cc43081f0a3df05d4271a lib/RPC/XML.pm
-SHA1 25173d5cb031aab70753afcc4b4f77ee8db3eff8 lib/RPC/XML/Client.pm
-SHA1 f4f66ee7d4bb0e0762e3d21e37a1ccf4c4215af9 lib/RPC/XML/Function.pm
-SHA1 a34766954a4632a712e32da1e8475cedf129f59d lib/RPC/XML/Method.pm
-SHA1 ebc157c0662f86f968feda8aeaaa02ec5b58248d lib/RPC/XML/Parser.pm
-SHA1 2b1756876f51b24717c2bf45918c93d3676335e1 lib/RPC/XML/Procedure.pm
-SHA1 a841f75714a3547d8cd97bf10cead43e28169d52 lib/RPC/XML/Server.pm
+SHA1 a68515510bab1a3dbf5c4de1fce7842e748d7b0c lib/RPC/XML.pm
+SHA1 0d2935b44b86a6453f5f2d9a94b8bd60fd3ff393 lib/RPC/XML/Client.pm
+SHA1 d94c5845f1bee94677794c1d022f975b8a5ec99a lib/RPC/XML/Function.pm
+SHA1 f3f34dc634762ea8bde150b9080ad73b595b356d lib/RPC/XML/Method.pm
+SHA1 17b18032f64a42774ba3c87a51f245b1813c506c lib/RPC/XML/Parser.pm
+SHA1 e8a147ef5ebdea6e319879779ee6ed85ad1830fe lib/RPC/XML/Procedure.pm
+SHA1 9369a7ca139f1f581fc60ad7cfd780dcdbfd8c6f lib/RPC/XML/Server.pm
SHA1 3b1b1815be69edabfad34b45f93259aeab6e314e methods/identity.base
SHA1 dfb493b476b4284b10597ddcfa33c3fbb1f38658 methods/identity.code
SHA1 2ac37e1c74e4a534e55f20cb53a2023b2eaf80bc methods/identity.help
@@ -74,10 +74,10 @@
SHA1 72439b9a75e8f0135231f0ef99ddf3ea495c53ac t/20_parser.t
SHA1 71414471c2222bfff51678a91763027a43d4f470 t/30_method.t
SHA1 a19ee8a3f37027ee6d9de49cb331907e6e6de39c t/35_namespaces.t
-SHA1 f33b91ad1f8d64f662730c88c863029f6677875f t/40_server.t
+SHA1 2704f5da9776de51a1f43a4257a01ac8f25c4b50 t/40_server.t
SHA1 1f84874e532cfd374465b4483718984739d84971 t/41_server_hang.t
-SHA1 cd6b3a84c7bc439a14a19a58c9fd6ad019fb98f6 t/50_client.t
-SHA1 61973017e352604714cf087478fe23b701256c76 t/60_net_server.t
+SHA1 006615241f01a80b4ac43f17477ea042917f29fa t/50_client.t
+SHA1 159600810136f11de3fa41d160fda57a2f0647a7 t/60_net_server.t
SHA1 99b3f1434b7223d74a8ed49e5b67d87d27c2e457 t/meth_bad_1.xpl
SHA1 14e3dfb6129a9d6f5bfd15bd490daa9010f6bac9 t/meth_bad_2.xpl
SHA1 99509569e177902aceaac0a7681c421f22a356b6 t/meth_good_1.xpl
@@ -85,11 +85,11 @@
SHA1 14a969cc89b23d6daad963f716d64fef23dd819c t/namespace2.xpl
SHA1 f50c01dd06bfa60f0c2bc12143afb35af09fcdad t/namespace3.xpl
SHA1 8ef631d58ca4a1386dfc0218fd71667260f974ad t/svsm_text.gif
-SHA1 4885272935f9cb673f4a496be973254ab35dbc1c t/util.pl
+SHA1 477f11fbd0f64d7d3140fc5cb2f0aa0deab7137a t/util.pl
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAko467sACgkQ3Cp33jjp81XMdgCeLHlaFxtNx+2QZabY+adJzoRC
-C3cAoIX9E+jmoynbwTBaUZGQFkdi7ej3
-=5XsB
+iEYEARECAAYFAkpWAY4ACgkQ3Cp33jjp81W6sACeLqa0x3UbInLQGmc30fnzKze3
+SM4An2oZE/ng2wkgGlX5NjKG53gn5081
+=qMhk
-----END PGP SIGNATURE-----
Modified: branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Server.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Server.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Server.pm Fri Jul 10 04:26:20 2009
@@ -30,6 +30,7 @@
use 5.006001;
use strict;
+use warnings;
use Socket;
use File::Spec;
@@ -48,7 +49,7 @@
%Apache::RPC::Server::SERVER_TABLE = ();
}
-$Apache::RPC::Server::VERSION = '1.32';
+$Apache::RPC::Server::VERSION = '1.33';
sub version { $Apache::RPC::Server::VERSION }
Modified: branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Status.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Status.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Status.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/Apache/RPC/Status.pm Fri Jul 10 04:26:20 2009
@@ -42,6 +42,7 @@
use 5.006001;
use strict;
+use warnings;
use vars qw(%IS_INSTALLED $SERVER_VER $STARTED $PERL_VER $DEFAULT $SERVER_CLASS
%proto $newQ);
use subs qw(header footer main_screen server_summary server_detail
@@ -60,7 +61,7 @@
$STARTED = scalar localtime $^T;
$PERL_VER = $^V ? sprintf "v%vd", $^V : $];
-$Apache::RPC::Status::VERSION = '1.08';
+$Apache::RPC::Status::VERSION = '1.09';
#
# %proto is the prototype set of screens/handlers that this class knows about.
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML.pm Fri Jul 10 04:26:20 2009
@@ -24,6 +24,7 @@
use 5.006001;
use strict;
+use warnings;
use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA $VERSION $ERROR
%xmlmap $xmlre $ENCODING $FORCE_STRING_ENCODING $ALLOW_NIL);
use subs qw(time2iso8601 smart_encode utf8_downgrade);
@@ -63,7 +64,7 @@
RPC_DATETIME_ISO8601 RPC_BASE64 RPC_NIL) ],
all => [ @EXPORT_OK ]);
-$VERSION = '1.42';
+$VERSION = '1.43';
# Global error string
$ERROR = '';
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Client.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Client.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Client.pm Fri Jul 10 04:26:20 2009
@@ -32,7 +32,8 @@
use 5.006001;
use strict;
-use vars qw($VERSION);
+use warnings;
+use vars qw($VERSION $COMPRESSION_AVAILABLE);
use subs qw(new simple_request send_request uri useragent request
fault_handler error_handler combined_handler timeout);
@@ -44,7 +45,14 @@
use RPC::XML;
require RPC::XML::Parser;
-$VERSION = '1.27';
+BEGIN
+{
+ # Check for compression support
+ eval "require Compress::Zlib";
+ $COMPRESSION_AVAILABLE = ($@) ? '' : 'deflate';
+}
+
+$VERSION = '1.28';
###############################################################################
#
@@ -90,12 +98,13 @@
$REQ->header(Content_Type => 'text/xml');
$REQ->protocol('HTTP/1.0');
- # Check for compression support
- $self->{__compress} = '';
- eval "require Compress::Zlib";
- $self->{__compress} = $@ ? '' : 'deflate';
+ # Note compression support
+ $self->{__compress} = $COMPRESSION_AVAILABLE;
# It looks wasteful to keep using the hash key, but it makes it easier
- # to change the string in just one place (above) if I have to.
+ # to change the string in just one place (BEGIN block, above) if I have to.
+ # Also (for now) I prefer to manipulate the private keys directly, before
+ # blessing $self, rather than using accessors. This is just for performance
+ # and I might change my mind later.
$REQ->header(Accept_Encoding => $self->{__compress})
if $self->{__compress};
$self->{__compress_thresh} = $attrs{compress_thresh} || 4096;
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Function.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Function.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Function.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Function.pm Fri Jul 10 04:26:20 2009
@@ -30,6 +30,7 @@
use 5.006001;
use strict;
+use warnings;
use vars qw($VERSION @ISA);
use subs qw(new signature make_sig_table clone is_valid match_signature);
@@ -38,7 +39,7 @@
require RPC::XML::Procedure;
@ISA = qw(RPC::XML::Procedure);
-$VERSION = '1.06';
+$VERSION = '1.07';
###############################################################################
#
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Method.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Method.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Method.pm Fri Jul 10 04:26:20 2009
@@ -26,12 +26,13 @@
use 5.006001;
use strict;
+use warnings;
use vars qw($VERSION);
require RPC::XML::Procedure;
@RPC::XML::Method::ISA = qw(RPC::XML::Procedure);
-$VERSION = '1.10';
+$VERSION = '1.11';
1;
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Parser.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Parser.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Parser.pm Fri Jul 10 04:26:20 2009
@@ -37,6 +37,7 @@
use 5.006001;
use strict;
+use warnings;
use vars qw($VERSION @ISA);
use subs qw(error stack_error new message_init message_end tag_start tag_end
final char_data parse);
@@ -97,7 +98,7 @@
require RPC::XML;
-$VERSION = '1.17';
+$VERSION = '1.18';
###############################################################################
#
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Procedure.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Procedure.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Procedure.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Procedure.pm Fri Jul 10 04:26:20 2009
@@ -40,6 +40,7 @@
use 5.006001;
use strict;
+use warnings;
use vars qw($VERSION);
use subs qw(new is_valid name code signature help version hidden
add_signature delete_signature make_sig_table match_signature
@@ -50,7 +51,7 @@
use Scalar::Util 'blessed';
-$VERSION = '1.17';
+$VERSION = '1.18';
###############################################################################
#
Modified: branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Server.pm?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Server.pm (original)
+++ branches/upstream/librpc-xml-perl/current/lib/RPC/XML/Server.pm Fri Jul 10 04:26:20 2009
@@ -64,8 +64,9 @@
use 5.006001;
use strict;
+use warnings;
use vars qw($VERSION @ISA $INSTANCE $INSTALL_DIR @XPL_PATH
- $IO_SOCKET_SSL_HACK_NEEDED);
+ $IO_SOCKET_SSL_HACK_NEEDED $COMPRESSION_AVAILABLE);
use Carp 'carp';
use AutoLoader 'AUTOLOAD';
@@ -89,9 +90,14 @@
# starts out true, then gets set to false the first time the hack is
# applied, so that it doesn't get repeated over and over...
$IO_SOCKET_SSL_HACK_NEEDED = 1;
-}
-
-$VERSION = '1.50';
+
+ # Check for compression support
+ eval "require Compress::Zlib";
+ $COMPRESSION_AVAILABLE = ($@) ? '' : 'deflate';
+}
+
+
+$VERSION = '1.51';
###############################################################################
#
@@ -181,10 +187,13 @@
$self->add_default_methods unless ($args{no_default});
$self->{__compress} = '';
- unless ($args{no_compress})
- {
- eval "require Compress::Zlib";
- $self->{__compress} = $@ ? '' : 'deflate';
+ if ($args{no_compress})
+ {
+ $self->{__compress} = '';
+ }
+ else
+ {
+ $self->{__compress} = $COMPRESSION_AVAILABLE;
# Add some more headers to the default response object for compression.
# It looks wasteful to keep using the hash key, but it makes it easier
# to change the string in just one place (above) if I have to.
Modified: branches/upstream/librpc-xml-perl/current/t/40_server.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/t/40_server.t?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/t/40_server.t (original)
+++ branches/upstream/librpc-xml-perl/current/t/40_server.t Fri Jul 10 04:26:20 2009
@@ -24,10 +24,6 @@
(undef, $dir, undef) = File::Spec->splitpath(File::Spec->rel2abs($0));
require File::Spec->catfile($dir, 'util.pl');
-
-# Per RT 27778, use 'KILL' instead of 'INT' as the stop-server signal for
-# MSWin platforms:
-my $SIGNAL = ($^O eq "MSWin32") ? 'KILL' : 'INT';
# The organization of the test suites is such that we assume anything that
# runs before the current suite is 100%. Thus, no consistency checks on
@@ -110,14 +106,13 @@
is($res->value->value, 1, 'First live req: $res value test');
}
}
-kill $SIGNAL, $child;
+stop_server($child);
# Try deleting the method
ok(ref $srv->delete_method('perl.test.suite.test1'),
'delete_method return value test');
# Start the server again
-sleep 1; # To allow the old sockets time enough to go away
# Add a method that echoes back socket-peer information
$res = $srv->add_method({ name => 'perl.test.suite.peeraddr',
signature => [ 'array' ],
@@ -154,10 +149,9 @@
'Second live request: correct faultString');
}
}
-kill $SIGNAL, $child;
+stop_server($child);
# Start the server again
-sleep 1; # To allow the old sockets time enough to go away
$child = start_server($srv);
$bucket = 0;
$req->content(RPC::XML::request->new('perl.test.suite.peeraddr')->as_string);
@@ -184,10 +178,9 @@
'Third request: pack_sockaddr_in validates all');
}
}
-kill $SIGNAL, $child;
+stop_server($child);
# Start the server again
-sleep 1; # To allow the old sockets time enough to go away
$child = start_server($srv);
# Test the error-message-mixup problem reported in RT# 29351
@@ -223,7 +216,7 @@
'RT29351 live request: correct faultString');
}
}
-kill $SIGNAL, $child;
+stop_server($child);
# OK-- At this point, basic server creation and accessors have been validated.
# We've run a remote method and we've correctly failed to run an unknown remote
@@ -278,10 +271,9 @@
die "Server allocation failed, cannot continue. Message was: $srv"
unless (ref $srv);
-kill $SIGNAL, $child;
+stop_server($child);
# Start the server again
-sleep 1; # To allow the old sockets time enough to go away
$child = start_server($srv);
# Set the ALRM handler to something more serious, since we have passed that
@@ -307,10 +299,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -331,10 +322,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -353,10 +343,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -381,10 +370,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -407,10 +395,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -432,10 +419,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -459,10 +445,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -485,10 +470,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -513,10 +497,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -539,10 +522,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -588,10 +570,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -619,10 +600,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -649,10 +629,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -679,10 +658,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -707,10 +685,9 @@
# HTTP::Message::content might have killed it already via croak().
unless ($res) # $res was made null above if it was an error
{
- kill $SIGNAL, $child;
-
- # Start the server again
- sleep 1; # To allow the old sockets time enough to go away
+ stop_server($child);
+
+ # Start the server again
$child = start_server($srv);
}
@@ -727,5 +704,5 @@
}
# Don't leave any children laying around
-kill $SIGNAL, $child;
+stop_server($child);
exit;
Modified: branches/upstream/librpc-xml-perl/current/t/50_client.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/t/50_client.t?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/t/50_client.t (original)
+++ branches/upstream/librpc-xml-perl/current/t/50_client.t Fri Jul 10 04:26:20 2009
@@ -92,8 +92,7 @@
{
# Assume that if an error occurred, the server might be in a confused
# state. Kill and restart it.
- kill 'INT', $child;
- sleep 1; # Give it time to free up the socket
+ stop_server($child);
$child = start_server($srv);
}
@@ -113,8 +112,7 @@
{
# Assume that if an error occurred, the server might be in a confused
# state. Kill and restart it.
- kill 'INT', $child;
- sleep 1; # Give it time to free up the socket
+ stop_server($child);
$child = start_server($srv);
}
@@ -132,8 +130,7 @@
{
# Assume that if an error occurred, the server might be in a confused
# state. Kill and restart it.
- kill 'INT', $child;
- sleep 1; # Give it time to free up the socket
+ stop_server($child);
$child = start_server($srv);
}
@@ -158,8 +155,7 @@
{
# Assume that if an error occurred, the server might be in a confused
# state. Kill and restart it.
- kill 'INT', $child;
- sleep 1; # Give it time to free up the socket
+ stop_server($child);
$child = start_server($srv);
}
@@ -173,8 +169,7 @@
'RPC::XML::Client::uri changes as expected');
# Kill the server long enough to add a new method
-kill 'INT', $child;
-sleep 1; # Give system enough time to reclaim resources
+stop_server($child);
use Digest::MD5;
@@ -232,6 +227,6 @@
}
# Kill the server before exiting
-kill 'INT', $child;
+stop_server($child);
exit;
Modified: branches/upstream/librpc-xml-perl/current/t/60_net_server.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/t/60_net_server.t?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/t/60_net_server.t (original)
+++ branches/upstream/librpc-xml-perl/current/t/60_net_server.t Fri Jul 10 04:26:20 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id$
# Test the RPC::XML::Server class with Net::Server rather than HTTP::Daemon
@@ -17,6 +16,9 @@
eval "use Net::Server";
# If they do not have Net::Server, quietly skip
plan skip_all => 'Net::Server not available' if $@;
+# ...or if they are on Windows, skip
+plan skip_all => 'Net::Server tests not reliable on Windows platform'
+ if ($^O eq "MSWin32");
# otherwise...
plan tests => 30;
@@ -236,5 +238,15 @@
}
# Now that we're done, kill the server and exit
-kill 'INT', `cat $pid_file`;
+open(my $fh, "< $pid_file");
+chomp(my $pid = <$fh>);
+if ($pid =~ /^(\d+)$/)
+{
+ kill 'INT', $1;
+}
+else
+{
+ warn "WARNING: $pid_file appears corrupt, zombie processes may remain!\n";
+}
+
exit;
Modified: branches/upstream/librpc-xml-perl/current/t/util.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librpc-xml-perl/current/t/util.pl?rev=39639&op=diff
==============================================================================
--- branches/upstream/librpc-xml-perl/current/t/util.pl (original)
+++ branches/upstream/librpc-xml-perl/current/t/util.pl Fri Jul 10 04:26:20 2009
@@ -24,6 +24,17 @@
}
}
+sub stop_server
+{
+ my $pid = shift;
+
+ # Per RT 27778, use 'KILL' instead of 'INT' as the stop-server signal for
+ # MSWin platforms:
+ my $SIGNAL = ($^O eq "MSWin32") ? 'KILL' : 'INT';
+ kill $SIGNAL, $pid;
+ sleep 2; # give the old sockets time to go away
+}
+
sub find_port
{
my $start_at = $_[0] || 9000;
More information about the Pkg-perl-cvs-commits
mailing list