From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 9 Apr 2004 07:04:48 +0000 (+0000)
Subject: find2perl should not default to -print when -eval is specified.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9a4ee8b12bbb03d4563807d9b09f3f7262a7701;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;