projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ba0bc47
)
get rid of warning about undefined $reqreg
author
minima
<minima>
Fri, 2 Nov 2001 20:02:14 +0000
(20:02 +0000)
committer
minima
<minima>
Fri, 2 Nov 2001 20:02:14 +0000
(20:02 +0000)
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 61478887d1b29f7c1cf39f73a74061cd4e6d7227..16458073b837bf7005718fac05fe2b66e5af7aa6 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-100,7
+100,7
@@
package main;
use strict;
use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
$zombies $root @listeners $lang $myalias @debug $userfn $clusteraddr
use strict;
use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
$zombies $root @listeners $lang $myalias @debug $userfn $clusteraddr
- $clusterport $mycall $decease $is_win $routeroot $me
+ $clusterport $mycall $decease $is_win $routeroot $me
$reqreg
);
@inqueue = (); # the main input queue, an array of hashes
);
@inqueue = (); # the main input queue, an array of hashes
@@
-109,6
+109,7
@@
$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
$starttime = 0; # the starting time of the cluster
#@outstanding_connects = (); # list of outstanding connects
@listeners = (); # list of listeners
+$reqreg = 0; # 1 = registration required, 2 = deregister people
use vars qw($VERSION $BRANCH $build $branch);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH $build $branch);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );