From: Newton, Philip <Philip.Newton@datenrevision.de>
Date: Thu, 24 Oct 2002 10:05:19 +0000 (+0200)
Subject: PATCH x2p/find2perl.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b739a87e1136803e4caa98b406c9987f6607e13e;p=p5sagit%2Fp5-mst-13.2.git

PATCH x2p/find2perl.PL
From: "Newton, Philip" <Philip.Newton@datenrevision.de>
Message-ID: <C9A98F2128EDD411B0920008C7B337A13DCF41@hamsem01.de.gedas.vwg>

p4raw-id: //depot/perl@18123
---

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index 4c5df7d..94cf242 100644
--- a/x2p/find2perl.PL
+++ b/x2p/find2perl.PL
@@ -191,7 +191,7 @@ while (@ARGV) {
         $out .= tab;
         for (@cmd)
             { s/'/\\'/g }
-        { local $" = "','"; $out .= "doexec(0, '@cmd')"; }
+        { local $" = "','"; $out .= "doexec(1, '@cmd')"; }
         $declaresubs .= "sub doexec (\$\@);\n";
         $init{doexec} = 1;
     } elsif ($_ eq 'prune') {