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

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 30519a07..fdcc9fa0 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -125,15 +125,15 @@ sub blocking
                0x80000000 | (4 << 16) | (ord('f') << 8) | 126,
                "$_[1]"
              );
-	}
-	
-	my $flags = fcntl ($_[0], F_GETFL, 0);
-	if ($_[1]) {
-		$flags &= ~O_NONBLOCK;
 	} else {
-		$flags |= O_NONBLOCK;
+		my $flags = fcntl ($_[0], F_GETFL, 0);
+		if ($_[1]) {
+			$flags &= ~O_NONBLOCK;
+		} else {
+			$flags |= O_NONBLOCK;
+		}
+		fcntl ($_[0], F_SETFL, $flags);
 	}
-	fcntl ($_[0], F_SETFL, $flags);
 }
 
 # save it