X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBBS.pm;h=9785876fee1e4814c50443049cee76e660b62675;hb=b9dffeff7239952814342dad19db3a51def6fab7;hp=9e8998748f6ee89ea884bc7b76babef1f609c2c1;hpb=602b4bd771f6476eda740a64a8c83c687abf4572;p=spider.git diff --git a/perl/BBS.pm b/perl/BBS.pm index 9e899874..9785876f 100644 --- a/perl/BBS.pm +++ b/perl/BBS.pm @@ -26,12 +26,6 @@ $lastbidclean = time; # the last time the bid file was cleaned $bidcleanint = 86400; # the time between bid cleaning intervals $maxbidage = 60; # the maximum age of a stored bid -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; - sub init { tie %hash, 'DB_File', $bidfn;