Lines Matching refs:perms
408 my $perms = $rwx[$mode & 7];
410 $perms = $rwx[$mode & 7] . $perms;
412 $perms = $rwx[$mode & 7] . $perms;
413 substr($perms, 2, 1) =~ tr/-x/Ss/ if -u _;
414 substr($perms, 5, 1) =~ tr/-x/Ss/ if -g _;
415 substr($perms, 8, 1) =~ tr/-x/Tt/ if -k _;
416 if (-f _) { $perms = '-' . $perms; }
417 elsif (-d _) { $perms = 'd' . $perms; }
418 elsif (-l _) { $perms = 'l' . $perms; $pname .= ' -> ' . readlink($_); }
419 elsif (-c _) { $perms = 'c' . $perms; $size = sizemm($rdev); }
420 elsif (-b _) { $perms = 'b' . $perms; $size = sizemm($rdev); }
421 elsif (-p _) { $perms = 'p' . $perms; }
422 elsif (-S _) { $perms = 's' . $perms; }
423 else { $perms = '?' . $perms; }
438 $perms,