From 02a0660296c61b3d303497695a37d6060e359d57 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 30 Mar 2001 16:51:55 +0000 Subject: [PATCH] try again --- perl/cluster.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perl/cluster.pl b/perl/cluster.pl index a8a2cc8e..0c12e3a9 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -36,6 +36,9 @@ BEGIN { open(CLLOCK, ">$lockfn") or die "Can't open Lockfile ($lockfn) $!"; print CLLOCK "$$\n"; close CLLOCK; + + $is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows? + } use Msg; @@ -89,8 +92,6 @@ $starttime = 0; # the starting time of the cluster $lockfn = "cluster.lock"; # lock file name #@outstanding_connects = (); # list of outstanding connects @listeners = (); # list of listeners -$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows? - # send a message to call on conn and disconnect -- 2.43.0