|
39
|
47 |
49 |
0 |
$cache{$mode} ||= do {
my $str = $type{$mode & S_IFMT()} || '?';
$str .= $mode & 256 ? 'r' : '-';
$str .= $mode & 128 ? 'w' : '-';
if ($mode & 64) {
$str .= $mode & 2048 ? 's' : 'x';
}
else {
$str .= $mode & 2048 ? 'S' : '-';
} ;
$str .= $mode & 32 ? 'r' : '-';
$str .= $mode & 16 ? 'w' : '-';
if ($mode & 8) {
$str .= $mode & 1024 ? 's' : 'x';
}
else {
$str .= $mode & 1024 ? 'S' : '-';
} ;
$str .= $mode & 4 ? 'r' : '-';
$str .= $mode & 2 ? 'w' : '-';
if ($mode & 1) {
$str .= $mode & 512 ? 't' : 'x';
}
else {
$str .= $mode & 512 ? 'T' : '-';
} ;
$str .= ' ';
$str
} |