X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_usdb.pl;h=5dcd40df1b22f9ee59faa756420111af8f12e81e;hb=601ea9fb47810209aeedef1a3041df5a916964f3;hp=f7242cf75f1b07e497a4f1f6db67077457966e61;hpb=41e0fd6ea6aea6950255f3671c6e8c5c6f71fded;p=spider.git diff --git a/perl/create_usdb.pl b/perl/create_usdb.pl index f7242cf7..5dcd40df 100755 --- a/perl/create_usdb.pl +++ b/perl/create_usdb.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # create a USDB file from a standard raw file (which is GZIPPED BTW) # @@ -20,12 +20,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 USDB;