Searched refs:perms (Results 1 – 9 of 9) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/x2p/ |
| D | find2perl.PL | 413 my $perms = $rwx[$mode & 7]; 415 $perms = $rwx[$mode & 7] . $perms; 417 $perms = $rwx[$mode & 7] . $perms; 418 substr($perms, 2, 1) =~ tr/-x/Ss/ if -u _; 419 substr($perms, 5, 1) =~ tr/-x/Ss/ if -g _; 420 substr($perms, 8, 1) =~ tr/-x/Tt/ if -k _; 421 if (-f _) { $perms = '-' . $perms; } 422 elsif (-d _) { $perms = 'd' . $perms; } 423 elsif (-l _) { $perms = 'l' . $perms; $pname .= ' -> ' . readlink($_); } 424 elsif (-c _) { $perms = 'c' . $perms; $size = sizemm($rdev); } [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/ext/IO/lib/IO/ |
| D | File.pm | 177 my ($mode, $perms) = @_[2, 3]; 179 defined $perms or $perms = 0666; 180 return sysopen($fh, $file, $mode, $perms);
|
| /mirbsd/src/sys/compat/linux/ |
| D | linux_getcwd.c | 379 int perms = VEXEC; local 427 error = VOP_ACCESS(lvp, perms, p->p_ucred, p); 430 perms = VEXEC|VREAD;
|
| /mirbsd/src/usr.bin/vi/common/ |
| D | recover.c | 827 rcv_mktemp(sp, path, dname, perms) in rcv_mktemp() argument 830 int perms; 843 if ((fd = mkstemp(path)) == -1 || fchmod(fd, perms) == -1) {
|
| /mirbsd/src/gnu/usr.bin/perl/lib/ |
| D | CPAN.pm | 2825 my($perms,%user,%group); 2835 if (-f _) { $perms = '-'; } 2836 elsif (-d _) { $perms = 'd'; } 2837 elsif (-c _) { $perms = 'c'; $sizemm = &sizemm; } 2838 elsif (-b _) { $perms = 'b'; $sizemm = &sizemm; } 2839 elsif (-p _) { $perms = 'p'; } 2840 elsif (-S _) { $perms = 's'; } 2841 else { $perms = 'l'; $pname .= ' -> ' . readlink($_); } 2854 $perms .= $tmp; 2872 $perms,
|
| /mirbsd/src/usr.sbin/makefs/ |
| D | README | 52 (bad perms, missing file, etc). image will continue
|
| /mirbsd/src/gnu/usr.bin/perl/win32/ |
| D | win32.c | 1298 int perms; in win32_stat() local 1312 perms = sbuf->st_mode & (S_IREAD|S_IWRITE|S_IEXEC); in win32_stat() 1313 sbuf->st_mode |= (perms>>3) | (perms>>6); in win32_stat()
|
| /mirbsd/src/gnu/usr.bin/perl/pod/ |
| D | perlfaq5.pod | 1052 F<file-dir-perms> article in the "Far More Than You Ever Wanted To
|
| D | perlfunc.pod | 2972 $perms = (stat("filename"))[2] & 07777; 2973 $oct_perms = sprintf "%lo", $perms;
|