X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=a8a2cc8ea587bf300952873fc318dcb25fed7c05;hb=e4a826c75f729d4c4ecc6a4b7ac3f1b9517c6091;hp=4816916c37c85a79f75ce21b582ad36ac567ffa6;hpb=01f2793abb2aa2bef7762183a33f5e867ab703ee;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 4816916c..a8a2cc8e 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -79,7 +79,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 $build + $clusterport $mycall $decease $build $is_win ); @inqueue = (); # the main input queue, an array of hashes @@ -89,6 +89,8 @@ $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 @@ -374,7 +376,7 @@ AGWMsg::init(\&new_channel); dbg('err', "load badwords: " . (BadWords::load or "Ok")); # prime some signals -unless ($^O =~ /^MS/) { +unless ($is_win) { unless ($DB::VERSION) { $SIG{INT} = \&cease; $SIG{TERM} = \&cease;