From 0c160758284dfc4a4cd244aaba0bc284f6220eb4 Mon Sep 17 00:00:00 2001 From: Achim Bohnet Date: Tue, 19 Nov 1996 19:54:23 +0100 Subject: [PATCH] minimal timelocal.pl for _09 private-msgid: <9611191854.AA19586@o09.rosat.mpe-garching.mpg.de> --- lib/Time/Local.pm | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) 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; -- 2.7.4