X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=61478887d1b29f7c1cf39f73a74061cd4e6d7227;hb=ba0bc47c95759a369af81fb19556c48261530a79;hp=be78ffda1fe472c0ba3c35b9a42b6ab2f26b4f6d;hpb=2ea216bfaf03964488c54d88fad75ce6cd5a5612;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index be78ffda..61478887 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -105,7 +105,7 @@ use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.48";				# the version no of the software
+$version = "1.49";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 #@outstanding_connects = ();     # list of outstanding connects
 @listeners = ();				# list of listeners
@@ -466,12 +466,6 @@ eval {
 };
 dbg("Local::init error $@") if $@;
 
-dbg("cleaning out old debug files");
-DXDebug::dbgclean();
-
-# print various flags
-#dbg("seful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P");
-
 # this, such as it is, is the main loop!
 dbg("orft we jolly well go ...");
 my $script = new Script "startup";