From: Billy Constantine <wdconsta@cs.adelaide.edu.au>
Date: Mon, 6 Apr 1998 23:52:13 +0000 (+0930)
Subject: PATCH: h2ph produces incorrect code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=120e76fd67bb8d4383ff9b055e404dfb696f957e;p=p5sagit%2Fp5-mst-13.2.git

PATCH: h2ph produces incorrect code

p4raw-id: //depot/perl@955
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 5c17e97..dc2207c 100644
--- 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 = ();
 		}