This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
There *is* a month called October.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 1 Oct 1999 07:32:33 +0000 (07:32 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 1 Oct 1999 07:32:33 +0000 (07:32 +0000)
p4raw-id: //depot/cfgperl@4268

t/op/time.t

index 658f9f3..caf2c14 100755 (executable)
@@ -47,7 +47,7 @@ else
     {print "not ok 5\n";}
 
 # This could be stricter.
-if (gmtime() =~ /^(Sun|Mon|Tue|Wed|Thu|Fri|Sat) (Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Nov|Dec) ([ \d]\d) (\d\d):(\d\d):(\d\d) (\d\d\d\d)$/)
+if (gmtime() =~ /^(Sun|Mon|Tue|Wed|Thu|Fri|Sat) (Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec) ([ \d]\d) (\d\d):(\d\d):(\d\d) (\d\d\d\d)$/)
     {print "ok 6\n";}
 else
     {print "not ok 6\n";}