From dc888bd77fad283e988528b3fca9933605c134dd Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 26 Feb 2008 21:15:57 +0000
Subject: [PATCH] put back IPPROTO_TCP and TCP_NODELAY
---
perl/Msg.pm | 4 ++--
perl/Version.pm | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
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;
--
2.43.0