X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=5d5a824a08b0fddaffac0aca280850de18ad3efd;hb=cc7f8c40caa3e7489626467782df521b3bbba784;hp=8645dbd9dd2e81ad467429124f4cc0c0c9f9fc8d;hpb=917f7586cf60e96e07233c72b9854d754638f253;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 8645dbd9..5d5a824a 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -135,6 +135,8 @@ $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; +$main::build += 1; # fudge (put back for now) + # send a message to call on conn and disconnect