From: Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
Date: Tue, 19 Nov 1996 18:54:23 +0000 (+0100)
Subject: minimal timelocal.pl for _09
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0c160758284dfc4a4cd244aaba0bc284f6220eb4;p=p5sagit%2Fp5-mst-13.2.git

minimal timelocal.pl for _09

private-msgid: <9611191854.AA19586@o09.rosat.mpe-garching.mpg.de>
---

diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm
index 2bdf23c..0119f9d 100644
--- a/lib/Time/Local.pm
+++ b/lib/Time/Local.pm
@@ -88,16 +88,11 @@ sub cheat {
     $year -= 1900
     	if $year > 1900;
     $month = $_[4];
-    croak "Month out of range 0..11 in timelocal.pl" 
-	if $month > 11 || $month < 0;
-    croak "Day out of range 1..31 in timelocal.pl" 
-	if $_[3] > 31 || $_[3] < 1;
-    croak "Hour out of range 0..23 in timelocal.pl"
-	if $_[2] > 23 || $_[2] < 0;
-    croak "Minute out of range 0..59 in timelocal.pl"
-	if $_[1] > 59 || $_[1] < 0;
-    croak "Second out of range 0..59 in timelocal.pl"
-	if $_[0] > 59 || $_[0] < 0;
+    croak "Month '$month' out of range 0..11"	if $month > 11 || $month < 0;
+    croak "Day '$_[3]' out of range 1..31"	if $_[3] > 31 || $_[3] < 1;
+    croak "Hour '$_[2]' out of range 0..23"	if $_[2] > 23 || $_[2] < 0;
+    croak "Minute '$_[1]' out of range 0..59"	if $_[1] > 59 || $_[1] < 0;
+    croak "Second '$_[0]' out of range 0..59"	if $_[0] > 59 || $_[0] < 0;
     $guess = $^T;
     @g = gmtime($guess);
     $year += $YearFix if $year < $epoch;