From 21d1ba01f501963c6f61499860ffc70a78ab21c0 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Feb 2004 21:11:25 +0000
Subject: Fix an fcntl example in perlopentut, spotted by MJD.

p4raw-id: //depot/perl@22301
---
 pod/perlopentut.pod | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pod/perlopentut.pod b/pod/perlopentut.pod
index 0b60096f24..3116f785c1 100644
--- a/pod/perlopentut.pod
+++ b/pod/perlopentut.pod
@@ -723,7 +723,9 @@ With descriptors that you haven't opened using C<sysopen>, such as
 sockets, you can set them to be non-blocking using C<fcntl>:
 
     use Fcntl;
-    fcntl(Connection, F_SETFL, O_NONBLOCK) 
+    my $old_flags = fcntl($handle, F_GETFL, 0) 
+        or die "can't get flags: $!";
+    fcntl($handle, F_SETFL, $old_flags | O_NONBLOCK) 
         or die "can't set non blocking: $!";
 
 Rather than losing yourself in a morass of twisting, turning C<ioctl>s,
-- 
cgit v1.2.1