put back IPPROTO_TCP and TCP_NODELAY

diff --git a/perl/Msg.pm b/perl/Msg.pm
index a485718cd155bda80b42eab44cd140f1a66ff00b..850842810f034af6b7147ec3d94d8e5da7cb6d73 100644 (file)
--- 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 1462fb8642c03658518a3e5a8e951a79fc7aa6d4..2c1628a74b538c21943b9bb91189117a21e3ce02 100644 (file)
--- 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;