This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Remove unused $scalar
authorKarl Williamson <public@khwilliamson.com>
Fri, 8 Jun 2012 15:53:57 +0000 (09:53 -0600)
committerKarl Williamson <public@khwilliamson.com>
Fri, 8 Jun 2012 16:39:23 +0000 (10:39 -0600)
This variable is no longer used, but the expression needs to be
evaluated anyway.  The code is outdented.

lib/unicore/mktables

index 4dc53ed..0df3003 100644 (file)
@@ -13511,11 +13511,11 @@ sub compile_perl() {
             push @tables_that_may_be_empty, $perl_table->complete_name;
         }
     }
-    my $perl_na = $perl->add_match_table('_X_HST_Not_Applicable',
-                                        Perl_Extension => 1,
-                                        Fate => $INTERNAL_ONLY,
-                                        Initialize => property_ref('HST')->table('NA'),
-                                        );
+    $perl->add_match_table('_X_HST_Not_Applicable',
+                            Perl_Extension => 1,
+                            Fate => $INTERNAL_ONLY,
+                            Initialize => property_ref('HST')->table('NA'),
+                            );
     $lv_lvt_v += $gcb->table('LV') + $gcb->table('LVT') + $gcb->table('V');
     $lv_lvt_v->add_comment('For use in \X; matches: hst=LV | hst=LVT | hst=V');