This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[ID 19990901.003] Time::Local should not croak on "out-of-range" days
authorJohn L. Allen <allen@grumman.com>
Wed, 1 Sep 1999 13:33:39 +0000 (09:33 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 9 Sep 1999 15:48:56 +0000 (15:48 +0000)
To: perl5-porters@perl.org
Message-Id: <199909011733.NAA17356@gateway.grumman.com>

p4raw-id: //depot/cfgperl@4115

lib/Time/Local.pm

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