diff options
| author | John L. Allen <allen@grumman.com> | 1999-09-01 09:33:39 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-09 15:48:56 +0000 |
| commit | 62316b42bf4b6abb5bc2c5dc8e0c51190635bab6 (patch) | |
| tree | 850fb5b4b284e4fdc02ff250e5cf9aec96b14212 /lib/Time | |
| parent | 5b3db61d7687cd3e7d04cffbbc0985b23d5e2613 (diff) | |
| download | perl-62316b42bf4b6abb5bc2c5dc8e0c51190635bab6.tar.gz | |
[ID 19990901.003] Time::Local should not croak on "out-of-range" days
To: perl5-porters@perl.org
Message-Id: <199909011733.NAA17356@gateway.grumman.com>
p4raw-id: //depot/cfgperl@4115
Diffstat (limited to 'lib/Time')
| -rw-r--r-- | lib/Time/Local.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm index 75bcc38eea..60f42e8756 100644 --- a/lib/Time/Local.pm +++ b/lib/Time/Local.pm @@ -74,7 +74,8 @@ sub cheat { $year = $_[5]; $month = $_[4]; 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; +# Allow "julian" conversions. --jhi 1999-09-09 +# 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; |