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

diff --git a/perl/Msg.pm b/perl/Msg.pm
index a485718c..85084281 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 '*IPPROTO_TCP     = sub {     6 };' unless defined *IPPROTO_TCP;
-		eval '*TCP_NODELAY     = sub {     1 };' unless defined *TCP_NODELAY;
+		eval 'sub IPPROTO_TCP  {     6 };' unless defined *IPPROTO_TCP;
+		eval 'sub TCP_NODELAY  {     1 };' unless defined *TCP_NODELAY;
 		$blocking_supported = 0;   # it appears that this DOESN'T work :-(
 	} 
 }