r57889 - in /trunk/libwww-perl: Changes META.yml debian/changelog lib/HTTP/Response.pm lib/LWP.pm t/base/response.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Fri May 14 01:12:02 2010
New Revision: 57889

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57889
Log:
New upstream release

Modified:
    trunk/libwww-perl/Changes
    trunk/libwww-perl/META.yml
    trunk/libwww-perl/debian/changelog
    trunk/libwww-perl/lib/HTTP/Response.pm
    trunk/libwww-perl/lib/LWP.pm
    trunk/libwww-perl/t/base/response.t

Modified: trunk/libwww-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/Changes?rev=57889&op=diff
==============================================================================
--- trunk/libwww-perl/Changes (original)
+++ trunk/libwww-perl/Changes Fri May 14 01:12:02 2010
@@ -1,3 +1,11 @@
+_______________________________________________________________________________
+2010-05-13  Release 5.836
+
+Gisle Aas (1):
+      Fix problem where $resp->base would downcase its return value
+
+
+
 _______________________________________________________________________________
 2010-05-05  Release 5.835
 

Modified: trunk/libwww-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/META.yml?rev=57889&op=diff
==============================================================================
--- trunk/libwww-perl/META.yml (original)
+++ trunk/libwww-perl/META.yml Fri May 14 01:12:02 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               libwww-perl
-version:            5.835
+version:            5.836
 abstract:           The World-Wide Web library for Perl
 author:
     - Gisle Aas <gisle at activestate.com>
@@ -31,7 +31,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.56
+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: trunk/libwww-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/debian/changelog?rev=57889&op=diff
==============================================================================
--- trunk/libwww-perl/debian/changelog (original)
+++ trunk/libwww-perl/debian/changelog Fri May 14 01:12:02 2010
@@ -1,3 +1,9 @@
+libwww-perl (5.836-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Thu, 13 May 2010 21:46:08 -0400
+
 libwww-perl (5.835-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libwww-perl/lib/HTTP/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/HTTP/Response.pm?rev=57889&op=diff
==============================================================================
--- trunk/libwww-perl/lib/HTTP/Response.pm (original)
+++ trunk/libwww-perl/lib/HTTP/Response.pm Fri May 14 01:12:02 2010
@@ -2,7 +2,7 @@
 
 require HTTP::Message;
 @ISA = qw(HTTP::Message);
-$VERSION = "5.835";
+$VERSION = "5.836";
 
 use strict;
 use HTTP::Status ();
@@ -76,14 +76,11 @@
 sub base
 {
     my $self = shift;
-    my $base = $self->header('Content-Base')     ||  # used to be HTTP/1.1
-               $self->header('Content-Location') ||  # HTTP/1.1
-               $self->header('Base');                # HTTP/1.0
-    if ($base) {
-        # handle multiple values (take first one), drop parameters
-        require HTTP::Headers::Util;
-        $base = (HTTP::Headers::Util::split_header_words($base))[0]->[0];
-    }
+    my $base = (
+	$self->header('Content-Base'),        # used to be HTTP/1.1
+	$self->header('Content-Location'),    # HTTP/1.1
+	$self->header('Base'),                # HTTP/1.0
+    )[0];
     if ($base && $base =~ /^$URI::scheme_re:/o) {
 	# already absolute
 	return $HTTP::URI_CLASS->new($base);

Modified: trunk/libwww-perl/lib/LWP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/lib/LWP.pm?rev=57889&op=diff
==============================================================================
--- trunk/libwww-perl/lib/LWP.pm (original)
+++ trunk/libwww-perl/lib/LWP.pm Fri May 14 01:12:02 2010
@@ -1,6 +1,6 @@
 package LWP;
 
-$VERSION = "5.835";
+$VERSION = "5.836";
 sub Version { $VERSION; }
 
 require 5.005;

Modified: trunk/libwww-perl/t/base/response.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-perl/t/base/response.t?rev=57889&op=diff
==============================================================================
--- trunk/libwww-perl/t/base/response.t (original)
+++ trunk/libwww-perl/t/base/response.t Fri May 14 01:12:02 2010
@@ -94,9 +94,9 @@
 }
 
 ok($r->base, $r->request->uri);
-$r->push_header("Content-Location", "/1/");
-ok($r->base, "http://www.sn.no/1/");
+$r->push_header("Content-Location", "/1/A/a");
+ok($r->base, "http://www.sn.no/1/A/a");
 $r->push_header("Content-Base", "/2/;a=/foo/bar");
-ok($r->base, "http://www.sn.no/2/"); # parameters stripped, -Base > -Location
+ok($r->base, "http://www.sn.no/2/;a=/foo/bar");
 $r->push_header("Content-Base", "/3/");
-ok($r->base, "http://www.sn.no/2/"); # first one of multiple prevails
+ok($r->base, "http://www.sn.no/2/;a=/foo/bar");