X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=8798392b8541152633ce50445d3a97666de3cff3;hb=1283d7c748715a1bf85a781fe4b66f427d949ae9;hp=169900cc1afc5f674299d373244dafed42eba6f2;hpb=66801c1ae9040d48322fd875005fd5fc3fd25ff3;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 169900cc..8798392b 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -86,6 +86,7 @@ use Timer; use Route; use Route::Node; use Route::User; +use Editable; use Data::Dumper; use IO::File; @@ -104,7 +105,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.48"; # the version no of the software +$version = "1.49"; # the version no of the software $starttime = 0; # the starting time of the cluster #@outstanding_connects = (); # list of outstanding connects @listeners = (); # list of listeners @@ -112,7 +113,7 @@ $starttime = 0; # the starting time of the cluster 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; -$main::build += 13; # add an offset to make it bigger than last system +$main::build += 12; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH;