This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Rip out redundant tables
authorKarl Williamson <khw@cpan.org>
Fri, 13 Feb 2015 22:14:46 +0000 (15:14 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 14 Feb 2015 04:59:54 +0000 (21:59 -0700)
Experimentally, we changed the definition of Perl's space to include a
vertical tab, thus being identical to the Posix space definition.  In
case we had to back this out, I left these as separate tables, but now
that experiment is considered a success, and those tables can be
collapsed.  Later commits will finish up removing the experimental
status of this.

lib/unicore/mktables

index a9e9c5a..8c35280 100644 (file)
@@ -13765,23 +13765,14 @@ sub compile_perl() {
                 Initialize => $Blank + $VertSpace,
     );
     $Space->add_alias('XPosixSpace');
-    my $posix_space = $perl->add_match_table("PosixSpace",
+    $Space->add_alias('XPerlSpace');    # Pre-existing synonyms
+    $Space->add_alias('SpacePerl');
+
+    my $Posix_space = $perl->add_match_table("PosixSpace",
                             Description => "\\t, \\n, \\cK, \\f, \\r, and ' '.  (\\cK is vertical tab)",
                             Initialize => $Space & $ASCII,
                             );
-
-    # Perl's traditional space doesn't include Vertical Tab prior to v5.18
-    my $XPerlSpace = $perl->add_match_table('XPerlSpace',
-                                  Description => '\s, including beyond ASCII',
-                                  Initialize => $Space,
-                                  #Initialize => $Space
-                                  # - utf8::unicode_to_native(0x0B]
-                                );
-    $XPerlSpace->add_alias('SpacePerl');    # A pre-existing synonym
-    my $PerlSpace = $perl->add_match_table('PerlSpace',
-                        Description => '\s, restricted to ASCII = [ \f\n\r\t] plus vertical tab',
-                        Initialize => $XPerlSpace & $ASCII,
-                            );
+    $Posix_space->add_alias('PerlSpace'); # A pre-existing synonym
 
 
     my $Cntrl = $perl->add_match_table('Cntrl',