X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=dbeab595045870a1ee74e360ea5a5af5bf4f9aac;hb=2ff41cd1566905e78825737d3c8e153f9bc96f4a;hp=416dea0a9e79caadb7e923c2e2d2585b5ca04f09;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm index 416dea0a..dbeab595 100644 --- a/perl/DXDebug.pm +++ b/perl/DXDebug.pm @@ -4,7 +4,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # package DXDebug; @@ -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) {