From: merijnb@ms.com <merijnb@ms.com>
Date: Tue, 12 Sep 2006 09:12:12 +0000 (-0700)
Subject: [perl #40327] Doc patch for perlfunc.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad605d1628fd826cb34c7fbdf2d7ec78f4134af3;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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