From: minima Date: Sun, 29 Sep 2002 17:31:27 +0000 (+0000) Subject: upissue to 1.51 and added VERSION stuff to Chain.pm X-Git-Tag: PRE-1-52~179 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f5b89524c760b174f9788bdd1f1b4bed3aa9e2d;p=spider.git upissue to 1.51 and added VERSION stuff to Chain.pm --- diff --git a/perl/Chain.pm b/perl/Chain.pm index 8afd62f0..c4fa99a7 100644 --- a/perl/Chain.pm +++ b/perl/Chain.pm @@ -2,15 +2,19 @@ package Chain; use strict; use Carp; - -use vars qw($VERSION $docheck); -$VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r}; +use vars qw($VERSION $BRANCH); +$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; use constant NEXT => 0; use constant PREV => 1; use constant OBJ => 2; +use vars qw($docheck); + $docheck = 1; sub _check 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;