Searched refs:onum (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/
H A Dfind2perl.PL105 my $onum = shift;
106 $onum =~ /^-?[0-7]+$/
107 || die "Malformed -perm argument: $onum\n";
109 if ($onum =~ s/^-//) {
110 $onum = sprintf("0%o", oct($onum) & 07777);
111 $out .= "((\$mode & $onum) == $onum)";
113 $onum =~ s/^0*/0/;
114 $out .= "((\$mode & 0777) == $onum)";
[all...]

Completed in 19 milliseconds