From 09cf2338daaf67c2844b5d0894b78636c9ab6102 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 26 Feb 2008 18:29:21 +0000 Subject: [PATCH] add checks for other Win32 POSIX substitutes --- perl/AGWMsg.pm | 2 +- perl/Msg.pm | 8 ++++---- perl/Version.pm | 2 +- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index 90f469d8..fdd4bc18 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -46,7 +46,7 @@ $hpolltime = 300 unless defined $hpolltime; %circuit = (); $total_in = $total_out = 0; $lastconnect = 0; -$connectinterval = 60; +$connectinterval = 30; sub init { diff --git a/perl/Msg.pm b/perl/Msg.pm index d4bfba36..a485718c 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -82,10 +82,10 @@ BEGIN { if ($^O eq 'MSWin32') { eval '*EINPROGRESS = sub { 10036 };' unless defined *EINPROGRESS; eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };' unless defined *EWOULDBLOCK; - eval '*F_GETFL = sub { 0 };'; - eval '*F_SETFL = sub { 0 };'; - eval '*IPPROTO_TCP = sub { 6 };'; - eval '*TCP_NODELAY = sub { 1 };'; + 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; $blocking_supported = 0; # it appears that this DOESN'T work :-( } } diff --git a/perl/Version.pm b/perl/Version.pm index f9ffc1c6..1462fb86 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 = '210'; +$build = '211'; 1; -- 2.43.0