From: Tony Cook <tony@develop-help.com>
Date: Wed, 3 Feb 2016 04:23:19 +0000 (+1100)
Subject: [perl #126544] correct the first example in the fcntl documentation
X-Git-Tag: v5.23.8~155
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/d5eedefea11231da8139c9478d2c9069346b6560

[perl #126544] correct the first example in the fcntl documentation
---

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 126bcb1..5e9652e 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -2229,7 +2229,7 @@ value returned work just like C<ioctl> below.
 For example:
 
     use Fcntl;
-    fcntl($filehandle, F_GETFL, $packed_return_buffer)
+    my $flags = fcntl($filehandle, F_GETFL, 0)
         or die "can't fcntl F_GETFL: $!";
 
 You don't have to check for C<defined> on the return from C<fcntl>.