From a5b87707adf1ba8e43fad6f2f74aa74fb1952d27 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 26 Feb 2008 21:18:14 +0000 Subject: [PATCH] fix them differently --- 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 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 :-( } } diff --git a/perl/Version.pm b/perl/Version.pm index 2c1628a7..7e018f1d 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 = '212'; +$build = '213'; 1; -- 2.43.0