From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 26 Feb 2008 21:15:57 +0000 (+0000)
Subject: put back IPPROTO_TCP and TCP_NODELAY
X-Git-Tag: 1.55~8
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=dc888bd77fad283e988528b3fca9933605c134dd

put back IPPROTO_TCP and TCP_NODELAY
---

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 :-(
 	} 
 }
diff --git a/perl/Version.pm b/perl/Version.pm
index 1462fb86..2c1628a7 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '211';
+$build = '212';
 
 1;