X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FJulian.pm;h=9f333d1188aa5ed264c10cf3bfa0a94e55b27c0b;hb=refs%2Fheads%2Fnewpc92timings;hp=5351aa278c98bec968dabe03e20339284c8321f8;hpb=168689554677c7f1480d6f1161ee371e12548e6b;p=spider.git diff --git a/perl/Julian.pm b/perl/Julian.pm index 5351aa27..9f333d11 100644 --- a/perl/Julian.pm +++ b/perl/Julian.pm @@ -3,7 +3,7 @@ # # Copyright (c) - 1998 Dirk Koopman G1TLH # -# $Id$ +# # use strict; @@ -11,12 +11,7 @@ use strict; package Julian; -use vars qw($VERSION $BRANCH @days @ldays @month); -$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); -$main::build += $VERSION; -$main::branch += $BRANCH; - +use vars qw(@days @ldays @month); @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); @ldays = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);