X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=a485718cd155bda80b42eab44cd140f1a66ff00b;hb=09cf2338daaf67c2844b5d0894b78636c9ab6102;hp=d4bfba36e5543a116fb095de2cb2af1c7cb879ca;hpb=71620f62f33c447fbc6e54e8c2681b8742e421a6;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index d4bfba36..a485718c 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -82,10 +82,10 @@ BEGIN {
 	if ($^O eq 'MSWin32') { 
 		eval '*EINPROGRESS = sub { 10036 };' unless defined *EINPROGRESS;
 		eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };' unless defined *EWOULDBLOCK;
-		eval '*F_GETFL     = sub {     0 };';
-		eval '*F_SETFL     = sub {     0 };';
-		eval '*IPPROTO_TCP     = sub {     6 };';
-		eval '*TCP_NODELAY     = sub {     1 };';
+		eval '*F_GETFL     = sub {     0 };' unless defined *F_GETFL;
+		eval '*F_SETFL     = sub {     0 };' unless defined *F_SETFL;
+		eval '*IPPROTO_TCP     = sub {     6 };' unless defined *IPPROTO_TCP;
+		eval '*TCP_NODELAY     = sub {     1 };' unless defined *TCP_NODELAY;
 		$blocking_supported = 0;   # it appears that this DOESN'T work :-(
 	} 
 }