diff options
| -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")'; } |