From 2cb165bafb996974e2bc11ab68eb1bcec9a45e47 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 15 Oct 2007 12:29:02 +0100 Subject: [PATCH] use DXUtil::month for sh/contest --- cmd/show/contest.pl | 2 +- perl/Version.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; diff --git a/perl/Version.pm b/perl/Version.pm index aa169b26..7a8288db 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '174'; +$build = '175'; 1; -- 2.43.0