--- 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 @@ -39,7 +39,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; }; } @@ -52,7 +53,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; }; } } @@ -74,7 +76,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; }; }