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