PATCH x2p/find2perl.PL
authorNewton, Philip <Philip.Newton@datenrevision.de>
Thu, 24 Oct 2002 10:05:19 +0000 (12:05 +0200)
committerhv <hv@crypt.org>
Thu, 7 Nov 2002 13:46:59 +0000 (13:46 +0000)
From: "Newton, Philip" <Philip.Newton@datenrevision.de>
Message-ID: <C9A98F2128EDD411B0920008C7B337A13DCF41@hamsem01.de.gedas.vwg>

p4raw-id: //depot/perl@18123

x2p/find2perl.PL

index 4c5df7d..94cf242 100644 (file)
@@ -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') {