From 892f669f9791273b2cb73d7421184f83acd5c609 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 2 Nov 2001 20:02:14 +0000 Subject: [PATCH 1/1] get rid of warning about undefined $reqreg --- perl/cluster.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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+)/ ); -- 2.43.0