casa-mp-base

--- 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;

        };

 }