X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXDebug.pm;fp=perl%2FDXDebug.pm;h=40cb3a257e1128651683a59dfe6fe0830d3334e3;hp=416dea0a9e79caadb7e923c2e2d2585b5ca04f09;hb=b9dffeff7239952814342dad19db3a51def6fab7;hpb=602b4bd771f6476eda740a64a8c83c687abf4572 diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm index 416dea0a..40cb3a25 100644 --- a/perl/DXDebug.pm +++ b/perl/DXDebug.pm @@ -26,12 +26,6 @@ $callback = undef; $keepdays = 10; $cleandays = 100; -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; - # Avoid generating "subroutine redefined" warnings with the following # hack (from CGI::Carp): if (!defined $DB::VERSION) {