This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: simplify a little code
authorKarl Williamson <public@khwilliamson.com>
Fri, 28 Jan 2011 16:43:11 +0000 (09:43 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 29 Jan 2011 17:26:41 +0000 (10:26 -0700)
lib/unicore/mktables

index a4cc98c..9d20085 100644 (file)
@@ -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)';