From e85ca32baf0e7166244f1c18bf4a7bc84cbca758 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 14 Oct 1999 18:25:20 +0000
Subject: 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
---
 lib/Time/Local.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Time')

diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm
index 75bcc38eea..f2f1672941 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);
     }
-- 
cgit v1.2.1