X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fgen_usdb_data.pl;h=d805870d66f0bdbab65f917884e4b64abd6d8eb0;hb=refs%2Fheads%2Fnewpc92timings;hp=edd74dab2ea0cebcb8aae788bcee022d16fcb291;hpb=41e0fd6ea6aea6950255f3671c6e8c5c6f71fded;p=spider.git diff --git a/perl/gen_usdb_data.pl b/perl/gen_usdb_data.pl index edd74dab..d805870d 100755 --- a/perl/gen_usdb_data.pl +++ b/perl/gen_usdb_data.pl @@ -23,7 +23,7 @@ # # Copyright (c) 2002 Dirk Koopman G1TLH # -# $Id$ +# # use strict; @@ -40,12 +40,6 @@ BEGIN { unshift @INC, "$root/local"; } -use vars qw($VERSION $BRANCH); -$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 DXVars; use Archive::Zip qw(:ERROR_CODES); use Archive::Zip::MemberRead;