[perl #40327] Doc patch for perlfunc.pod

From: merijnb@ms.com (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-31259-1158077531-1067.40327-75-0@perl.org>

p4raw-id: //depot/perl@28830

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index e98e3f4..bcedd53 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -5903,7 +5903,7 @@ You can import symbolic mode constants (C<S_IF*>) and functions
     printf "Permissions are %04o\n", S_IMODE($mode), "\n";
 
     $is_setuid     =  $mode & S_ISUID;
-    $is_setgid     =  S_ISDIR($mode);
+    $is_directory  =  S_ISDIR($mode);
 
 You could write the last two using the C<-u> and C<-d> operators.
 The commonly available C<S_IF*> constants are