From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 14 Oct 1999 18:25:20 +0000 (+0000)
Subject: make timelocal work better when time is close to the epoch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e85ca32baf0e7166244f1c18bf4a7bc84cbca758;p=p5sagit%2Fp5-mst-13.2.git

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