From: minima <minima>
Date: Fri, 30 Mar 2001 16:50:07 +0000 (+0000)
Subject: better win detection
X-Git-Tag: R_1_47~70
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4a826c75f729d4c4ecc6a4b7ac3f1b9517c6091;p=spider.git

better win detection
---

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 291a751d..a8a2cc8e 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -89,7 +89,7 @@ $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/; # is it Windows?
+$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?