[livejournal] r17675: LJSUP-7328: Month '-1' out of range 0..1...

U   trunk/cgi-bin/LJ/TimeUtil.pm

Modified: trunk/cgi-bin/LJ/TimeUtil.pm
===================================================================
--- trunk/cgi-bin/LJ/TimeUtil.pm	2010-11-12 09:56:25 UTC (rev 17674)
+++ trunk/cgi-bin/LJ/TimeUtil.pm	2010-11-12 11:09:57 UTC (rev 17675)
@@ -61,6 +61,7 @@
     my ($class, $string, $gmt) = @_;
     return undef unless $string =~ /^(\d\d\d\d)-(\d\d)-(\d\d)(?: (\d\d):(\d\d)(?::(\d\d))?)?$/;
     my ($y, $mon, $d, $h, $min, $s) = ($1, $2, $3, $4, $5, $6);
+    return undef unless ($d + 0) and ($mon + 0); # '00' is string and is true value
     my $calc = sub {
         $gmt ?
             Time::Local::timegm($s, $min, $h, $d, $mon-1, $y) :