From: Brendan O'Dea Date: Mon, 23 Sep 2002 22:45:40 +0000 (+1000) Subject: perldoc -f stat (perlfunc.pod) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3155e0b0b510ed7522ef21f1acd786768d4fede8;p=p5sagit%2Fp5-mst-13.2.git perldoc -f stat (perlfunc.pod) From: "Brendan O'Dea" Message-ID: <20020923124540.GB28031@londo.odea.dropbear.id.au> p4raw-id: //depot/perl@17918 --- diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 53ac84e..9305f21 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -5257,7 +5257,7 @@ You can import symbolic mode constants (C) and functions $group_read = ($mode & S_IRGRP) >> 3; $other_execute = $mode & S_IXOTH; - printf "Permissions are %04o\n", S_ISMODE($mode), "\n"; + printf "Permissions are %04o\n", S_IMODE($mode), "\n"; $is_setuid = $mode & S_ISUID; $is_setgid = S_ISDIR($mode); @@ -5285,7 +5285,7 @@ The commonly available S_IF* constants are and the S_IF* functions are - S_IFMODE($mode) the part of $mode containing the permission bits + S_IMODE($mode) the part of $mode containing the permission bits and the setuid/setgid/sticky bits S_IFMT($mode) the part of $mode containing the file type