From: minima <minima>
Date: Fri, 11 Jan 2002 00:41:31 +0000 (+0000)
Subject: yet more compatibilty fixes
X-Git-Tag: R_1_50~94
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=78ca91ff50a421f549543d94d097ec0843a8842d;p=spider.git

yet more compatibilty fixes
---

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