From 98fc2b8bafffa2871b44459c5b17229e71c01a3d Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Mon, 27 Apr 1998 16:00:25 +0000 Subject: Add missing parens. Peter Galbavy --- gnu/usr.bin/perl/utils/h2ph.PL | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gnu/usr.bin/perl/utils') diff --git a/gnu/usr.bin/perl/utils/h2ph.PL b/gnu/usr.bin/perl/utils/h2ph.PL index 1b469daab83..c1809ecf854 100644 --- a/gnu/usr.bin/perl/utils/h2ph.PL +++ b/gnu/usr.bin/perl/utils/h2ph.PL @@ -119,7 +119,7 @@ foreach $file (@ARGV) { "eval 'sub $name $proto\{\n$t ${args}eval \"$new\";\n$t}' unless defined(\&$name);\n"; } 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 = (); } -- cgit v1.2.3