From a9a4ee8b12bbb03d4563807d9b09f3f7262a7701 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 9 Apr 2004 07:04:48 +0000
Subject: find2perl should not default to -print when -eval is specified.
 Noticed by David Dyck.

p4raw-id: //depot/perl@22681
---
 x2p/find2perl.PL | 1 +
 1 file changed, 1 insertion(+)

(limited to 'x2p')

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;
-- 
cgit v1.2.1