X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=f1cf1227ca77b3b55f55fad314c1861b7860af44;hb=0f5b89524c760b174f9788bdd1f1b4bed3aa9e2d;hp=7a93e685955ef616aacb1ca76052b3a538ba61ef;hpb=f87323c2926605792ee02b84783d8f3d4dbd605f;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 7a93e685..f1cf1227 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -114,7 +114,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.50"; # the version no of the software +$version = "1.51"; # the version no of the software $starttime = 0; # the starting time of the cluster #@outstanding_connects = (); # list of outstanding connects @listeners = (); # list of listeners @@ -123,7 +123,7 @@ $reqreg = 0; # 1 = registration required, 2 = deregister people use vars qw($VERSION $BRANCH $build $branch); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); -$main::build += 10; # add an offset to make it bigger than last system +$main::build += 8; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH;