From b191e3a6b0672d6111fd1c803dd5efa1c296ae0f Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 10 Sep 2007 20:48:12 +0100 Subject: [PATCH] tidy blocking for windows (possibly) --- perl/Msg.pm | 12 ++++++------ perl/Version.pm | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/perl/Msg.pm b/perl/Msg.pm index 37308b5b..00128af6 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -66,8 +66,8 @@ BEGIN { # defines EINPROGRESS as 10035. We provide it here because some # Win32 users report POSIX::EINPROGRESS is not vendor-supported. if ($^O eq 'MSWin32') { - eval '*EINPROGRESS = sub { 10036 };'; - eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };'; + 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 };'; @@ -487,10 +487,10 @@ sub _rcv { # Complement to _send return unless defined($sock); my @lines; - if ($conn->{blocking}) { - blocking($sock, 0); - $conn->{blocking} = 0; - } +# if ($conn->{blocking}) { +# blocking($sock, 0); +# $conn->{blocking} = 0; +# } $bytes_read = sysread ($sock, $msg, 1024, 0); if (defined ($bytes_read)) { if ($bytes_read > 0) { diff --git a/perl/Version.pm b/perl/Version.pm index b878232d..73432133 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 = '135'; +$build = '136'; 1; -- 2.43.0