r63165 - in /branches/upstream/libwww-perl/current: Changes META.yml lib/File/Listing.pm lib/HTTP/Cookies.pm lib/HTTP/Message.pm lib/LWP.pm

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Fri Oct 1 21:41:47 UTC 2010 

Author: periapt-guest
Date: Fri Oct  1 21:41:37 2010
New Revision: 63165

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63165
Log:
[svn-upgrade] new version libwww-perl (5.837)

Modified:
    branches/upstream/libwww-perl/current/Changes
    branches/upstream/libwww-perl/current/META.yml
    branches/upstream/libwww-perl/current/lib/File/Listing.pm
    branches/upstream/libwww-perl/current/lib/HTTP/Cookies.pm
    branches/upstream/libwww-perl/current/lib/HTTP/Message.pm
    branches/upstream/libwww-perl/current/lib/LWP.pm

Modified: branches/upstream/libwww-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/Changes?rev=63165&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/Changes (original)
+++ branches/upstream/libwww-perl/current/Changes Fri Oct  1 21:41:37 2010
@@ -1,3 +1,15 @@
+_______________________________________________________________________________
+2010-09-20  Release 5.837
+
+David E. Wheeler (1):
+      Fix for Encode 2.40
+
+Gisle Aas (2):
+      Fix Perl syntax error in synopsis
+      Allow ISO 8601 date strings when parsing Apache file listings
+
+
+
 _______________________________________________________________________________
 2010-05-13  Release 5.836
 

Modified: branches/upstream/libwww-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/META.yml?rev=63165&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/META.yml (original)
+++ branches/upstream/libwww-perl/current/META.yml Fri Oct  1 21:41:37 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               libwww-perl
-version:            5.836
+version:            5.837
 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.55_02
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libwww-perl/current/lib/File/Listing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/lib/File/Listing.pm?rev=63165&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/lib/File/Listing.pm (original)
+++ branches/upstream/libwww-perl/current/lib/File/Listing.pm Fri Oct  1 21:41:37 2010
@@ -1,7 +1,7 @@
 package File::Listing;
 
 sub Version { $VERSION; }
-$VERSION = "5.814";
+$VERSION = "5.837";
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -288,9 +288,15 @@
     local($_) = shift;
     my($tz, $error) = @_; # ignored for now...
 
-    if (m!<A\s+HREF=\"([^\"]+)\">.*</A>.*?(\d+)-([a-zA-Z]+)-(\d+)\s+(\d+):(\d+)\s+(?:([\d\.]+[kM]?|-))!i) {
+    if (m!<A\s+HREF=\"([^\"]+)\">.*</A>.*?(\d+)-([a-zA-Z]+|\d+)-(\d+)\s+(\d+):(\d+)\s+(?:([\d\.]+[kMG]?|-))!i) {
 	my($filename, $filesize) = ($1, $7);
 	my($d,$m,$y, $H,$M) = ($2,$3,$4,$5,$6);
+	if ($m =~ /^\d+$/) {
+	    ($d,$y) = ($y,$d) # iso date
+	}
+	else {
+	    $m = _monthabbrev_number($m);
+	}
 
 	$filesize = 0 if $filesize eq '-';
 	if ($filesize =~ s/k$//i) {
@@ -305,7 +311,7 @@
 	$filesize = int $filesize;
 
 	require Time::Local;
-	my $filetime = Time::Local::timelocal(0,$M,$H,$d,_monthabbrev_number($m)-1,_guess_year($y)-1900);
+	my $filetime = Time::Local::timelocal(0,$M,$H,$d,$m-1,_guess_year($y)-1900);
 	my $filetype = ($filename =~ s|/$|| ? "d" : "f");
 	return [$filename, $filetype, $filesize, $filetime, undef];
     }

Modified: branches/upstream/libwww-perl/current/lib/HTTP/Cookies.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/lib/HTTP/Cookies.pm?rev=63165&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/lib/HTTP/Cookies.pm (original)
+++ branches/upstream/libwww-perl/current/lib/HTTP/Cookies.pm Fri Oct  1 21:41:37 2010
@@ -5,7 +5,7 @@
 use HTTP::Headers::Util qw(_split_header_words join_header_words);
 
 use vars qw($VERSION $EPOCH_OFFSET);
-$VERSION = "5.833";
+$VERSION = "5.837";
 
 # Legacy: because "use "HTTP::Cookies" used be the ONLY way
 #  to load the class HTTP::Cookies::Netscape.
@@ -610,7 +610,7 @@
 
   use HTTP::Cookies;
   $cookie_jar = HTTP::Cookies->new(
-    file => "$ENV{'HOME'}/lwp_cookies.dat',
+    file => "$ENV{'HOME'}/lwp_cookies.dat",
     autosave => 1,
   );
 

Modified: branches/upstream/libwww-perl/current/lib/HTTP/Message.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-perl/current/lib/HTTP/Message.pm?rev=63165&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/lib/HTTP/Message.pm (original)
+++ branches/upstream/libwww-perl/current/lib/HTTP/Message.pm Fri Oct  1 21:41:37 2010
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION $AUTOLOAD);
-$VERSION = "5.835";
+$VERSION = "5.837";
 
 require HTTP::Headers;
 require Carp;
@@ -271,7 +271,7 @@
 		return "US-ASCII" unless /[\x80-\xFF]/;
 		require Encode;
 		eval {
-		    Encode::decode_utf8($_, Encode::FB_CROAK());
+		    Encode::decode_utf8($_, Encode::FB_CROAK() | Encode::LEAVE_SRC());
 		};
 		return "UTF-8" unless $@;
 		return "ISO-8859-1";

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=63165&op=diff
==============================================================================
--- branches/upstream/libwww-perl/current/lib/LWP.pm (original)
+++ branches/upstream/libwww-perl/current/lib/LWP.pm Fri Oct  1 21:41:37 2010
@@ -1,6 +1,6 @@
 package LWP;
 
-$VERSION = "5.836";
+$VERSION = "5.837";
 sub Version { $VERSION; }
 
 require 5.005;

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