[51721] trunk/dports/perl/p5-libwww-perl

[ricci at macports.org]

Revision: 51721
          http://trac.macports.org/changeset/51721
Author:   ricci at macports.org
Date:     2009-06-01 11:25:40 -0700 (Mon, 01 Jun 2009)
Log Message:
-----------
uprev to 5.826
add patch to support negative offsets from epoch (since it uses a unix epoch on Mac OS X)

Modified Paths:
--------------
    trunk/dports/perl/p5-libwww-perl/Portfile

Added Paths:
-----------
    trunk/dports/perl/p5-libwww-perl/files/
    trunk/dports/perl/p5-libwww-perl/files/patch-lib-HTTP-Date.pm.diff

Modified: trunk/dports/perl/p5-libwww-perl/Portfile
===================================================================
--- trunk/dports/perl/p5-libwww-perl/Portfile	2009-06-01 16:53:47 UTC (rev 51720)
+++ trunk/dports/perl/p5-libwww-perl/Portfile	2009-06-01 18:25:40 UTC (rev 51721)
@@ -3,7 +3,7 @@
 PortSystem                   1.0
 PortGroup                    perl5 1.0
 
-perl5.setup                  libwww-perl 5.825 LWP
+perl5.setup                  libwww-perl 5.826 LWP
 maintainers                  narf_tm openmaintainer
 description                  The World-Wide Web library for Perl
 long_description             The libwww-perl collection is a set of Perl \
@@ -16,10 +16,12 @@
                              and even classes that help you implement \
                              simple HTTP servers.
 
-checksums                    md5 9b383739e58ac8f8234487e62d5c2818 \
-                             sha1 c28ad5df9152881387cad3f2cc89e5cd0e56a92c \
-                             rmd160 c4a142cacb89c8af16938ae8f329d046a22809e2
+checksums           md5     3f8e1922193b74ffb7d86efdadfbe865 \
+                    sha1    0c6ba0a37ac82f170fe6d5e0092331f90937672b \
+                    rmd160  9e34c1d2ffdfe7ad995c07ce587c0a8b177c4f06
 
+patchfiles          patch-lib-HTTP-Date.pm.diff
+
 platforms                    darwin
 
 depends_lib-append           port:p5-compress-zlib \

Added: trunk/dports/perl/p5-libwww-perl/files/patch-lib-HTTP-Date.pm.diff
===================================================================
--- trunk/dports/perl/p5-libwww-perl/files/patch-lib-HTTP-Date.pm.diff	                        (rev 0)
+++ trunk/dports/perl/p5-libwww-perl/files/patch-lib-HTTP-Date.pm.diff	2009-06-01 18:25:40 UTC (rev 51721)
@@ -0,0 +1,32 @@
+--- lib/HTTP/Date.pm.orig	2008-04-11 11:59:19.000000000 -0700
++++ lib/HTTP/Date.pm	2009-06-01 10:37:20.000000000 -0700
+@@ -40,7 +40,8 @@
+     if ($str =~ /^[SMTWF][a-z][a-z], (\d\d) ([JFMAJSOND][a-z][a-z]) (\d\d\d\d) (\d\d):(\d\d):(\d\d) GMT$/) {
+ 	return eval {
+ 	    my $t = Time::Local::timegm($6, $5, $4, $1, $MoY{$2}-1, $3);
+-	    $t < 0 ? undef : $t;
++##	    $t < 0 ? undef : $t;
++	    $t;
+ 	};
+     }
+ 
+@@ -53,7 +54,8 @@
+ 	unless (defined($tz = shift)) {
+ 	    return eval { my $frac = $d[-1]; $frac -= ($d[-1] = int($frac));
+ 			  my $t = Time::Local::timelocal(reverse @d) + $frac;
+-			  $t < 0 ? undef : $t;
++##			  $t < 0 ? undef : $t;
++			  $t;
+ 		        };
+ 	}
+     }
+@@ -75,7 +77,8 @@
+ 
+     return eval { my $frac = $d[-1]; $frac -= ($d[-1] = int($frac));
+ 		  my $t = Time::Local::timegm(reverse @d) + $frac;
+-		  $t < 0 ? undef : $t - $offset;
++##		  $t < 0 ? undef : $t - $offset;
++		  $t - $offset;
+ 		};
+ }
+ 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090601/a98b9902/attachment.html>