X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=5d5a824a08b0fddaffac0aca280850de18ad3efd;hb=d7d7ba29f0758f9b36af45c973e830031a9b3469;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