PATCH: h2ph produces incorrect code

p4raw-id: //depot/perl@955

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 5c17e97..dc2207c 100644 (file)
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -135,7 +135,7 @@ while (defined ($file = next_file())) {
                        }
                    }
                    else {
-                      print OUT "unless defined(\&$name) {\nsub $name $proto\{\n    ${args}eval \"$new\";\n}\n}\n";
+                      print OUT "unless (defined(\&$name)) {\nsub $name $proto\{\n    ${args}eval \"$new\";\n}\n}\n";
                    }
                    %curargs = ();
                }