diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-28 17:36:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-28 17:36:59 +0000 |
| commit | 761138982cf16bae0fa021ffc8dae045fbef53c8 (patch) | |
| tree | 3da345f7a24d883192edf5fc2d84ad94418de890 /lib | |
| parent | 2985053fe39d847469f0b4425a356f8551d33fa8 (diff) | |
| download | perl-761138982cf16bae0fa021ffc8dae045fbef53c8.tar.gz | |
revert change#4115 (breaks libwww's base/date.t); could be
reworked to enable it conditional on $Time::Local::nocroak
or some such
p4raw-link: @4115 on //depot/cfgperl: 62316b42bf4b6abb5bc2c5dc8e0c51190635bab6
p4raw-id: //depot/perl@4247
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Time/Local.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm index 60f42e8756..75bcc38eea 100644 --- a/lib/Time/Local.pm +++ b/lib/Time/Local.pm @@ -74,8 +74,7 @@ sub cheat { $year = $_[5]; $month = $_[4]; croak "Month '$month' out of range 0..11" if $month > 11 || $month < 0; -# Allow "julian" conversions. --jhi 1999-09-09 -# croak "Day '$_[3]' out of range 1..31" if $_[3] > 31 || $_[3] < 1; + 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; |