} elsif ($_ eq '!') {
$out .= tab . "!";
next;
- } elsif ($_ eq 'name') {
- $out .= tab . '/' . fileglob_to_re(shift) . "/s";
+ } elsif (/^(i)?name$/) {
+ $out .= tab . '/' . fileglob_to_re(shift) . "/s$1";
+ } elsif (/^(i)?path$/) {
+ $out .= tab . '$File::Find::name =~ /' . fileglob_to_re(shift) . "/s$1";
} elsif ($_ eq 'perm') {
my $onum = shift;
$onum =~ /^-?[0-7]+$/
my $prog = shift;
$prog =~ s/'/\\'/g;
$out .= tab . "eval {$prog}";
+ $print_needed = 0;
} elsif ($_ eq 'depth') {
$find = 'finddepth';
next;
}
if ($print_needed) {
- $out .= "\n" . tab . '&& print("$name\n")';
+ my $t = tab;
+ if ($t !~ /&&\s*$/) { $t .= '&& ' }
+ $out .= "\n" . $t . 'print("$name\n")';
}
quoted to avoid interpretation by the shell (just as with using
C<find(1)>).
+=item C<-iname GLOB>
+
+Like C<-name>, but the match is case insensitive.
+
+=item C<-path GLOB>
+
+Path name matches specified GLOB wildcard pattern.
+
+=item C<-ipath GLOB>
+
+Like C<-path>, but the match is case insensitive.
+
=item C<-perm PERM>
Low-order 9 bits of permission match octal value PERM.