From: minima Date: Fri, 30 Mar 2001 16:51:55 +0000 (+0000) Subject: try again X-Git-Tag: R_1_47~69 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=02a0660296c61b3d303497695a37d6060e359d57;p=spider.git try again --- 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