Lines Matching refs:perm
474 local($type, $perm, $rest, $c, $len, $name);
480 ($type, $perm, $rest) =
486 $perm = oct($perm) if $perm =~ /^\d+$/;
489 if (!chmod($perm, $name)) {
491 "$prog:$test{':long-name'}: can't chmod $perm $name - $!\n";
495 if (!mkdir($name, $perm)) {
497 "$prog:$test{':long-name'}: can't mkdir $perm $name - $!\n";
501 local($oumask) = umask($perm);
995 local($type, $perm, $rest, $c, $len, $name);
1003 ($type, $perm, $rest) = ($1, $2, $3);
1009 if ($perm !~ /^\d+$/) {
1031 local($type, $perm, $uid, $gid, $matchType,
1040 ($type, $perm, $uid, $gid, $matchType, $rest)
1047 if ($perm !~ /^\d+$/ && $perm ne '*') {
1049 "$prog:$file:$.: bad permissions for file-result: $perm\n";
1236 local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1243 ($type, $perm, $uid, $gid, $matchType, $rest) =
1249 $perm = oct($perm) if $perm =~ /^\d+$/;
1256 if ($perm ne '*' && ($stbuf[2] & 07777) != $perm) {
1259 $perm, $stbuf[2] & 07777);