diff options
| author | Newton, Philip <Philip.Newton@datenrevision.de> | 2002-10-24 12:05:19 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-07 13:46:59 +0000 |
| commit | b739a87e1136803e4caa98b406c9987f6607e13e (patch) | |
| tree | 80f21a123ac16bdf815c33496ab61a454e8b4cce /x2p | |
| parent | b0d0c53930669dca23928a6d1a7ae6e9f2bd61d8 (diff) | |
| download | perl-b739a87e1136803e4caa98b406c9987f6607e13e.tar.gz | |
PATCH x2p/find2perl.PL
From: "Newton, Philip" <Philip.Newton@datenrevision.de>
Message-ID: <C9A98F2128EDD411B0920008C7B337A13DCF41@hamsem01.de.gedas.vwg>
p4raw-id: //depot/perl@18123
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/find2perl.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 4c5df7da94..94cf242306 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') { |