r41397 - in /branches/upstream/libwww-perl/current: Changes META.yml lib/LWP.pm lib/LWP/Protocol/http.pm t/base/message.t

iulian-guest at users.alioth.debian.org iulian-guest at users.alioth.debian.org
Thu Aug 6 09:27:12 UTC 2009


Author: iulian-guest
Date: Thu Aug  6 09:26:38 2009
New Revision: 41397

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=41397
Log:
[svn-upgrade] Integrating new upstream version, libwww-perl (5.830)

Modified:
    branches/upstream/libwww-perl/current/Changes
    branches/upstream/libwww-perl/current/META.yml
    branches/upstream/libwww-perl/current/lib/LWP.pm
    branches/upstream/libwww-perl/current/lib/LWP/Protocol/http.pm
    branches/upstream/libwww-perl/current/t/base/message.t

Modified: branches/upstream/libwww-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/Changes?rev=41397&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/Changes (original)
+++ branches/upstream/libwww-perl/current/Changes Thu Aug  6 09:26:38 2009
@@ -1,3 +1,14 @@
+_______________________________________________________________________________
+2009-07-26  Release 5.830
+
+Gisle Aas (1):
+      select doesn't return undef on failure [RT#32356]
+
+Ville Skyttä (1):
+      Add raw RFC 1951 deflate test case.
+
+
+
 _______________________________________________________________________________
 2009-07-07  Release 5.829
 

Modified: branches/upstream/libwww-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/META.yml?rev=41397&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/META.yml (original)
+++ branches/upstream/libwww-perl/current/META.yml Thu Aug  6 09:26:38 2009
@@ -1,12 +1,14 @@
 --- #YAML:1.0
 name:               libwww-perl
-version:            5.829
+version:            5.830
 abstract:           The World-Wide Web library for Perl
 author:
     - Gisle Aas <gisle at activestate.com>
 license:            perl
 distribution_type:  module
 configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
     ExtUtils::MakeMaker:  0
 requires:
     Compress::Zlib:  1.10
@@ -24,7 +26,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.4801
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libwww-perl/current/lib/LWP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/lib/LWP.pm?rev=41397&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/lib/LWP.pm (original)
+++ branches/upstream/libwww-perl/current/lib/LWP.pm Thu Aug  6 09:26:38 2009
@@ -1,6 +1,6 @@
 package LWP;
 
-$VERSION = "5.829";
+$VERSION = "5.830";
 sub Version { $VERSION; }
 
 require 5.005;

Modified: branches/upstream/libwww-perl/current/lib/LWP/Protocol/http.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/lib/LWP/Protocol/http.pm?rev=41397&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/lib/LWP/Protocol/http.pm (original)
+++ branches/upstream/libwww-perl/current/lib/LWP/Protocol/http.pm Thu Aug  6 09:26:38 2009
@@ -269,7 +269,7 @@
           SELECT:
             {
                 my $nfound = select($rbits, $wbits, undef, $sel_timeout);
-                unless (defined $nfound) {
+                if ($nfound < 0) {
                     if ($!{EINTR} || $!{EAGAIN}) {
                         if ($time_before) {
                             $sel_timeout = $sel_timeout_before - (time - $time_before);
@@ -436,7 +436,7 @@
         my $before;
         $before = time if $timeout;
         my $nfound = select($fbits, undef, undef, $timeout);
-        unless (defined $nfound) {
+        if ($nfound < 0) {
             if ($!{EINTR} || $!{EAGAIN}) {
                 # don't really think EAGAIN can happen here
                 if ($timeout) {

Modified: branches/upstream/libwww-perl/current/t/base/message.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/t/base/message.t?rev=41397&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/t/base/message.t (original)
+++ branches/upstream/libwww-perl/current/t/base/message.t Thu Aug  6 09:26:38 2009
@@ -3,7 +3,7 @@
 use strict;
 use Test qw(plan ok skip);
 
-plan tests => 119;
+plan tests => 121;
 
 require HTTP::Message;
 use Config qw(%Config);
@@ -459,6 +459,16 @@
     skip('Needs Encode.pm for this test', undef);
 }
 
+# Raw RFC 1951 deflate
+$m = HTTP::Message->new([
+    "Content-Type" => "text/plain",
+    "Content-Encoding" => "deflate, base64",
+    ],
+    "80jNyclXCM8vyklRBAA="
+    );
+ok($m->decoded_content, "Hello World!");
+ok(!$m->header("Client-Warning"));
+
 if (eval "require Compress::Bzip2") {
     $m = HTTP::Message->new([
 	"Content-Type" => "text/plain",




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