From 09cf2338daaf67c2844b5d0894b78636c9ab6102 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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