X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=5d5a824a08b0fddaffac0aca280850de18ad3efd;hb=0ea62428b633223f0e7c3f87af1a1afd1df9819b;hp=8645dbd9dd2e81ad467429124f4cc0c0c9f9fc8d;hpb=da65011693cc9a7a33f09424f7a19a51937d986c;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