projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f87323c
)
upissue to 1.51 and added VERSION stuff to Chain.pm
author
minima
<minima>
Sun, 29 Sep 2002 17:31:27 +0000
(17:31 +0000)
committer
minima
<minima>
Sun, 29 Sep 2002 17:31:27 +0000
(17:31 +0000)
perl/Chain.pm
patch
|
blob
|
history
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/perl/Chain.pm
b/perl/Chain.pm
index 8afd62f05b6a25ad146b69aaca08f4518d2ca582..c4fa99a79b5d45690e11e66fb9c5eee1b5cd171b 100644
(file)
--- a/
perl/Chain.pm
+++ b/
perl/Chain.pm
@@
-2,15
+2,19
@@
package Chain;
use strict;
use Carp;
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 constant NEXT => 0;
use constant PREV => 1;
use constant OBJ => 2;
+use vars qw($docheck);
+
$docheck = 1;
sub _check
$docheck = 1;
sub _check
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 7a93e685955ef616aacb1ca76052b3a538ba61ef..f1cf1227ca77b3b55f55fad314c1861b7860af44 100755
(executable)
--- 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)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.5
0
"; # the version no of the software
+$version = "1.5
1
"; # the version no of the software
$starttime = 0; # the starting time of the cluster
#@outstanding_connects = (); # list of outstanding connects
@listeners = (); # list of listeners
$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));
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;
$main::build += $VERSION;
$main::branch += $BRANCH;