X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=b60ece8a46fd50d0ab9576a206a98e06d71eb4de;hb=a5b87707adf1ba8e43fad6f2f74aa74fb1952d27;hp=850842810f034af6b7147ec3d94d8e5da7cb6d73;hpb=dc888bd77fad283e988528b3fca9933605c134dd;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 85084281..b60ece8a 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -84,8 +84,8 @@ BEGIN {
 		eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };' unless defined *EWOULDBLOCK;
 		eval '*F_GETFL     = sub {     0 };' unless defined *F_GETFL;
 		eval '*F_SETFL     = sub {     0 };' unless defined *F_SETFL;
-		eval 'sub IPPROTO_TCP  {     6 };' unless defined *IPPROTO_TCP;
-		eval 'sub TCP_NODELAY  {     1 };' unless defined *TCP_NODELAY;
+		eval 'sub IPPROTO_TCP  {     6 };';
+		eval 'sub TCP_NODELAY  {     1 };';
 		$blocking_supported = 0;   # it appears that this DOESN'T work :-(
 	} 
 }