Lines Matching full:perm
477 local($type, $perm, $rest, $c, $len, $name);
482 # format is: type perm "name"
483 ($type, $perm, $rest) =
489 $perm = oct($perm) if $perm =~ /^\d+$/;
492 if (!chmod($perm, $name)) {
494 "$prog:$test{':long-name'}: can't chmod $perm $name - $!\n";
498 if (!mkdir($name, $perm)) {
500 "$prog:$test{':long-name'}: can't mkdir $perm $name - $!\n";
504 local($oumask) = umask($perm);
998 local($type, $perm, $rest, $c, $len, $name);
1000 # format is: type perm "name"
1006 ($type, $perm, $rest) = ($1, $2, $3);
1012 if ($perm !~ /^\d+$/) {
1034 local($type, $perm, $uid, $gid, $matchType,
1037 # format is: type perm uid gid matchType "name"
1043 ($type, $perm, $uid, $gid, $matchType, $rest)
1050 if ($perm !~ /^\d+$/ && $perm ne '*') {
1052 "$prog:$file:$.: bad permissions for file-result: $perm\n";
1239 local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1245 # format is: type perm "name"
1246 ($type, $perm, $uid, $gid, $matchType, $rest) =
1252 $perm = oct($perm) if $perm =~ /^\d+$/;
1259 if ($perm ne '*' && ($stbuf[2] & 07777) != $perm) {
1262 $perm, $stbuf[2] & 07777);
