Fix for [perl #28963]: find2perl was sometimes generating

invalid code.

p4raw-id: //depot/perl@22749

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index b99bb49..cc6c6d8 100644 (file)
--- 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")';
 }