diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-28 18:28:07 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-28 18:28:07 +0000 |
| commit | 178eb895c5deb67bb37c347449d4e8f3288b8b7e (patch) | |
| tree | 88048e988916ff067fcb95faf5721bd34beda7de /x2p | |
| parent | 36c726b39493413b3d290022ea8659549c919762 (diff) | |
| download | perl-178eb895c5deb67bb37c347449d4e8f3288b8b7e.tar.gz | |
Fix for [perl #28963]: find2perl was sometimes generating
invalid code.
p4raw-id: //depot/perl@22749
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/find2perl.PL | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index b99bb49863..cc6c6d805d 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -266,7 +266,9 @@ while (@ARGV) { } if ($print_needed) { - $out .= "\n" . tab . '&& print("$name\n")'; + my $t = tab; + if ($t !~ /&&\s*$/) { $t .= '&& ' } + $out .= "\n" . $t . 'print("$name\n")'; } |