From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 10 Sep 2007 19:48:12 +0000 (+0100)
Subject: tidy blocking for windows (possibly)
X-Git-Tag: 1.55~79
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=b191e3a6b0672d6111fd1c803dd5efa1c296ae0f;p=spider.git

tidy blocking for windows (possibly)
---

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;