Lines Matching refs:onum
105 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)";