diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1998-04-27 16:00:25 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1998-04-27 16:00:25 +0000 |
| commit | 98fc2b8bafffa2871b44459c5b17229e71c01a3d (patch) | |
| tree | e3bf73500e9d1d2bd177c79b4b1b60be6293e45d | |
| parent | 421895e2e32ad4c8081d2da40f1ab89f0244e709 (diff) | |
Add missing parens. Peter Galbavy <peter@wonderland.org>
| -rw-r--r-- | gnu/usr.bin/perl/utils/h2ph.PL | 2 |
1 files changed, 1 insertions, 1 deletions
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 = (); } |