From 78ca91ff50a421f549543d94d097ec0843a8842d Mon Sep 17 00:00:00 2001 From: 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.43.0