added rinit command

[spider.git] / perl / DXCron.pm

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 1c698f751e5b045808c1ead66791125a848924c2..42dbe2a5d6053d951db5cff878df0e8cae8e6652 100644 (file)
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -252,7 +252,7 @@ sub spawn
                        for (@main::listeners) {
                                $_->close_server;
                        }
-                       unless ($^O =~ /^MS/) {
+                       unless ($main::is_win) {
                                $SIG{HUP} = 'IGNORE';
                                $SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
                                alarm(0);