This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make timelocal work better when time is close to the epoch
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 14 Oct 1999 18:25:20 +0000 (18:25 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 14 Oct 1999 18:25:20 +0000 (18:25 +0000)
east of GMT (from Keiki SATOH <kki@wakusei.ne.jp>)

p4raw-id: //depot/perl@4378

lib/Time/Local.pm

index 75bcc38..f2f1672 100644 (file)
@@ -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);
     }