X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=00128af622318d2a601de452c5a646de5a7f465d;hb=b191e3a6b0672d6111fd1c803dd5efa1c296ae0f;hp=37308b5bb89fe943dd561cdd3bf68f6294ae1331;hpb=e4baedb96993790b4abd0c966fdbf325127ae3c2;p=spider.git

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) {