From 78ca91ff50a421f549543d94d097ec0843a8842d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 11 Jan 2002 00:41:31 +0000
Subject: [PATCH] yet more compatibilty fixes

---
 perl/Msg.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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
-- 
2.34.1