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