distrib/x2p/find2perl.PL

79 my $out = '';
89         $out .= tab . "(\n";
94         $out .= tab . ")";
100         $out .= tab . "!";
103         $out .= tab . '/' . fileglob_to_re(shift) . "/s";
108         $out .= tab;
111             $out .= "((\$mode & $onum) == $onum)";
114             $out .= "((\$mode & 0777) == $onum)";
118         $out .= tab . "-$filetest _";
120         $out .= tab . 'print("$name\n")';
123         $out .= tab . 'print("$name\0")';
127         $out .= tab;
129             $out .= '($dev < 0)';
131             $out .= '($dev >= 0)'; #XXX
135         $out .= tab . "(\$uid == \$uid{'$uname'})";
139         $out .= tab . "(\$gid == \$gid{'$gname'})";
142         $out .= tab . '!exists $uid{$uid}';
145         $out .= tab . '!exists $gid{$gid}';
148         $out .= tab . n('$nlink', shift);
150         $out .= tab . n('$ino', shift);
159         $out .= tab . n($n, $_);
161         $out .= tab . n('int(-A _)', shift);
163         $out .= tab . n('int(-M _)', shift);
165         $out .= tab . n('int(-C _)', shift);
171         $out .= tab;
176                 $out .= '(unlink($_) || warn "$name: $!\n")';
178                 $out .= 'unlink($_)';
180                 $out .= '(unlink($_) || 1)';
185             { local $" = "','"; $out .= "doexec(0, '@cmd')"; }
195         $out .= tab;
198         { local $" = "','"; $out .= "doexec(1, '@cmd')"; }
203         $out .= tab . '($File::Find::prune = 1)';
205         $out .= tab . '!($File::Find::prune |= ($dev != $File::Find::topdev))'
212         $out .= tab . "(-M _ < $newername)";
217         $out .= tab . "eval {$prog}";
222         $out .= tab . "ls";
231         $out .= tab . "tar(*$fh, \$name)";
242         $out .= tab . "cpio(*$fh, \$name, '$1')";
255             { local($statdone) = 1; $out .= "\n" . tab . "||\n"; }
260             $out .= " &&" unless $Skip_And || $ARGV[0] eq ')';
261             $out .= "\n";
268     $out .= "\n" . tab . '&& print("$name\n")';
333     $out = <<'END' . $out;
340 $out =~ s/lstat\(\$_\)/lstat(_)/;
348 $out;
360 $out;
686     $tabstring =~ s/^\s+/ / if $out =~ /!$/;
851 Print out path of file (always true). If none of C<-exec>, C<-ls>,