From: minima Date: Fri, 2 Nov 2001 20:02:14 +0000 (+0000) Subject: get rid of warning about undefined $reqreg X-Git-Tag: R_1_49~25 X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=892f669f9791273b2cb73d7421184f83acd5c609;hp=ba0bc47c95759a369af81fb19556c48261530a79;p=spider.git get rid of warning about undefined $reqreg --- diff --git a/perl/cluster.pl b/perl/cluster.pl index 61478887..16458073 100755 --- 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 - $clusterport $mycall $decease $is_win $routeroot $me + $clusterport $mycall $decease $is_win $routeroot $me $reqreg ); @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 +$reqreg = 0; # 1 = registration required, 2 = deregister people use vars qw($VERSION $BRANCH $build $branch); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );