This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
There *is* a month called October.
[perl5.git] / 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";}