From e5228720d6fdc243999d812a7a89ca41dd4c11bf Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 28 Jan 2011 09:43:11 -0700 Subject: [PATCH] mktables: simplify a little code --- lib/unicore/mktables | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lib/unicore/mktables b/lib/unicore/mktables index a4cc98c..9d20085 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -12571,7 +12571,6 @@ sub make_table_pod_entries($) { # expression, but with only one of 'Single', 'Short' if there # are both items. if ($short_name || $single_form || $table->conflicting) { - $parenthesized .= '('; $parenthesized .= "Short: $short_name" if $short_name; if ($short_name && $single_form) { $parenthesized .= ', '; @@ -12591,13 +12590,11 @@ sub make_table_pod_entries($) { # to go on every entry. my $conflicting = join " NOR ", $table->conflicting; if ($conflicting) { - $parenthesized .= '(' if ! $parenthesized; - $parenthesized .= '; ' if $parenthesized ne '('; + $parenthesized .= '; ' if $parenthesized ne ""; $parenthesized .= "NOT $conflicting"; } - $parenthesized .= ')' if $parenthesized; - push @info, $parenthesized if $parenthesized; + push @info, "($parenthesized)" if $parenthesized; if ($table_property != $perl && $table->perl_extension) { push @info, '(Perl extension)'; -- 1.8.3.1