X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=40cb3a257e1128651683a59dfe6fe0830d3334e3;hb=5db4d809b67ab2650366039f7585e6479d8f13a8;hp=416dea0a9e79caadb7e923c2e2d2585b5ca04f09;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git 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) {