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 (file)
--- 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') {