X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=30519a0764b9c0ddec9dcc7330277cb68d600986;hb=94b9e6854969b7c7419a4ef39eb83a70ca1a85f8;hp=57880ed112f825f9d445a4bdf7397375f4ac0835;hpb=0a86c4341dfe313546f605c32959810cbf5bc288;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 57880ed1..30519a07 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -119,14 +119,12 @@ sub blocking
 	return unless $blocking_supported;
 
 	# Make the handle stop blocking, the Windows way.
-	if ($^O eq 'MSWin32') { 
-        my $set_it = $_[1];
-		
+	if ($main::iswin) { 
         # 126 is FIONBIO (some docs say 0x7F << 16)
         ioctl( $_[0],
                0x80000000 | (4 << 16) | (ord('f') << 8) | 126,
-               $set_it
-             ) or confess "Can't set the handle non-blocking: $!";
+               "$_[1]"
+             );
 	}
 	
 	my $flags = fcntl ($_[0], F_GETFL, 0);
@@ -375,8 +373,11 @@ sub new_server {
 	return $self;
 }
 
+my $oldw = $^W;
+$^W = 0;
 eval "use Socket qw(IPPROTO_TCP TCP_NODELAY)";
-if ($@) {
+$^W = $oldw;
+if ($@ && !$main::inwin) {
 	sub IPPROTO_TCP {6;}
 	sub TCP_NODELAY {1;};
 }