X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Fcluster.pl;h=1ecbc094a704487fd96c3998a560eb493d02f976;hb=4e5b3de7a26563d94678fb790b8a1e2c4daaac8d;hp=6cdd417d16ccf2b4cfabf8fcf7fed20ca6a5e907;hpb=16b2be4021cdd3ee9ea028dd72ce971246ca38cb;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6cdd417d..1ecbc094 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -71,7 +71,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.43";				# the version no of the software
+$version = "1.44";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
 @outstanding_connects = ();     # list of outstanding connects
@@ -340,7 +340,7 @@ $SIG{KILL} = 'DEFAULT';     # as if it matters....
 # catch the rest with a hopeful message
 for (keys %SIG) {
 	if (!$SIG{$_}) {
-		dbg('chan', "Catching SIG $_");
+#		dbg('chan', "Catching SIG $_");
 		$SIG{$_} = sub { my $sig = shift;	DXDebug::confess("Caught signal $sig");  }; 
 	}
 }