From 3155e0b0b510ed7522ef21f1acd786768d4fede8 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 24 Sep 2002 08:45:40 +1000 Subject: [PATCH] perldoc -f stat (perlfunc.pod) From: "Brendan O'Dea" Message-ID: <20020923124540.GB28031@londo.odea.dropbear.id.au> p4raw-id: //depot/perl@17918 --- pod/perlfunc.pod | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.8.3.1