find2perl should not default to -print when -eval is specified.

Noticed by David Dyck.

p4raw-id: //depot/perl@22681

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index 67022ee..b99bb49 100644 (file)
--- 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;