diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-09 07:04:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-09 07:04:48 +0000 |
| commit | a9a4ee8b12bbb03d4563807d9b09f3f7262a7701 (patch) | |
| tree | d457c6e23f9a2c152e4abbceb3e75433c813ef40 /x2p | |
| parent | d8cb5b61aca0f046a25f18b65c461c04a886361a (diff) | |
| download | perl-a9a4ee8b12bbb03d4563807d9b09f3f7262a7701.tar.gz | |
find2perl should not default to -print when -eval is specified.
Noticed by David Dyck.
p4raw-id: //depot/perl@22681
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/find2perl.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 67022eef11..b99bb49863 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -215,6 +215,7 @@ while (@ARGV) { my $prog = shift; $prog =~ s/'/\\'/g; $out .= tab . "eval {$prog}"; + $print_needed = 0; } elsif ($_ eq 'depth') { $find = 'finddepth'; next; |