diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-05-15 19:18:30 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:21 -0600 |
| commit | 8fdef2795bdab8c3d5d8687e364fa1024c93a3c9 (patch) | |
| tree | e69e13671d9862dfedee3d6f1cf95242696dd0fc /lib | |
| parent | a19e6569e0ca1667af90fe7c799d2158404593aa (diff) | |
| download | perl-8fdef2795bdab8c3d5d8687e364fa1024c93a3c9.tar.gz | |
Shorten a $variable name
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 7d3a797b18..00c1259b2e 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -13004,7 +13004,7 @@ sub compile_perl() { # It is regular XID_Start plus the underscore, but all characters must be # Word characters as well my $XID_Start = property_ref('XID_Start'); - my $perl_xid_start = $perl->add_match_table('_Perl_IDStart', + my $perl_xids = $perl->add_match_table('_Perl_IDStart', Perl_Extension => 1, Fate => $INTERNAL_ONLY, Initialize => ord('_') @@ -13012,7 +13012,7 @@ sub compile_perl() { if (defined $XID_Start || defined ($XID_Start = property_ref('ID_Start'))) { - $perl_xid_start += $XID_Start->table('Y'); + $perl_xids += $XID_Start->table('Y'); } else { # For Unicode versions that don't have the property, construct our own @@ -13020,11 +13020,11 @@ sub compile_perl() { # numbers (Nl), minus Pattern_Syntax and Pattern_White_Space code # points, plus stability extensions. PatSyn and PatWS are not defined # in releases that don't have XIDS defined, so are irrelevant. - $perl_xid_start += $gc->table('Letter'); + $perl_xids += $gc->table('Letter'); my $nl = $gc->table('Letter_Number'); - $perl_xid_start += $nl if defined $nl; + $perl_xids += $nl if defined $nl; } - $perl_xid_start &= $Word; + $perl_xids &= $Word; my $gcb = property_ref('Grapheme_Cluster_Break'); # These are used in Unicode's definition of \X |