X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=4b3e68ba813e0b5b3004a9dd07db520de385fd12;hb=2cb165bafb996974e2bc11ab68eb1bcec9a45e47;hp=43c0bc399d6d5023f37f6662240779931d8b8f39;hpb=715cd45b038dab6a7fefd8249e1268b25982eeed;p=spider.git diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl index 43c0bc39..4b3e68ba 100644 --- a/cmd/show/contest.pl +++ b/cmd/show/contest.pl @@ -22,7 +22,7 @@ my ($m,$y) = $line =~ /^([a-z]+)\s*(\d+)/; ($y,$m) = $line =~ /^(\d+)\s*([a-z]+)/ unless $y && $m; unless ($y && $m) { ($m,$y) = (gmtime)[4,5]; - $m = qw(jan feb mar apr may jun jul aug sep oct nov dec)[$m]; + $m = lc $DXUtil::month[$m]; $y += 1900; } $y += 2000 if $y <= 50;