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

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 126bcb1..5e9652e 100644 (file)
--- 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>.