This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
revert change#4115 (breaks libwww's base/date.t); could be
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 28 Sep 1999 17:36:59 +0000 (17:36 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 28 Sep 1999 17:36:59 +0000 (17:36 +0000)
reworked to enable it conditional on $Time::Local::nocroak
or some such

p4raw-link: @4115 on //depot/cfgperl: 62316b42bf4b6abb5bc2c5dc8e0c51190635bab6

p4raw-id: //depot/perl@4247

lib/Time/Local.pm

index 60f42e8..75bcc38 100644 (file)
@@ -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;