Lines Matching refs:perm
505 local($type, $perm, $rest, $c, $len, $name);
510 # format is: type perm "name"
511 ($type, $perm, $rest) =
517 $perm = oct($perm) if $perm =~ /^\d+$/;
520 if (!chmod($perm, $name)) {
522 "$prog:$test{':long-name'}: can't chmod $perm $name - $!\n";
526 if (!mkdir($name, $perm)) {
528 "$prog:$test{':long-name'}: can't mkdir $perm $name - $!\n";
532 local($oumask) = umask($perm);
1038 local($type, $perm, $rest, $c, $len, $name);
1040 # format is: type perm "name"
1046 ($type, $perm, $rest) = ($1, $2, $3);
1052 if ($perm !~ /^\d+$/) {
1074 local($type, $perm, $uid, $gid, $matchType,
1077 # format is: type perm uid gid matchType "name"
1083 ($type, $perm, $uid, $gid, $matchType, $rest)
1090 if ($perm !~ /^\d+$/ && $perm ne '*') {
1092 "$prog:$file:$.: bad permissions for file-result: $perm\n";
1281 local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1287 # format is: type perm "name"
1288 ($type, $perm, $uid, $gid, $matchType, $rest) =
1294 $perm = oct($perm) if $perm =~ /^\d+$/;
1301 if ($perm ne '*' && ($stbuf[2] & 07777) != $perm) {
1304 $perm, $stbuf[2] & 07777);