add missing defined for M$

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 63383cdafe5a5d9c2de57dfa2752098827ccebe3..165596d270265b34c2fc5cba785cc633f1f58b5c 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -56,7 +56,7 @@ BEGIN {
        eval {
                require Socket; Socket->import(qw(IPPROTO_TCP TCP_NODELAY));
        };
-       if ($@ && !$^O =~ /^MS/) {
+       unless (*IPPROTO_TCP  && !$^O =~ /^MS/) {
                dbg("IPPROTO_TCP and TCP_NODELAY manually defined");
                eval '*IPPROTO_TCP     = sub {     6 };';
                eval '*TCP_NODELAY     = sub {     1 };';
@@ -69,6 +69,8 @@ BEGIN {
                eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };';
                eval '*F_GETFL     = sub {     0 };';
                eval '*F_SETFL     = sub {     0 };';
+               eval '*IPPROTO_TCP     = sub {     6 };';
+               eval '*TCP_NODELAY     = sub {     1 };';
                $blocking_supported = 1;
        } 
 }