make timelocal work better when time is close to the epoch

east of GMT (from Keiki SATOH <kki@wakusei.ne.jp>)

p4raw-id: //depot/perl@4378

diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm
index 75bcc38..f2f1672 100644 (file)
--- a/lib/Time/Local.pm
+++ b/lib/Time/Local.pm
@@ -44,7 +44,7 @@ sub timelocal {
     if ($t < $DAY and ($lt[5] >= 70 or $gt[5] >= 70 )) {
        # Wrap error, too early a date
        # Try a safer date
-       $tt = $DAY;
+       $tt += $DAY;
        @lt = localtime($tt);
        @gt = gmtime($tt);
     }