This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add synonym \p{Titlecase}
[perl5.git] / lib / unicore / mktables
index 82cfec5..5e3f0c5 100644 (file)
@@ -11292,6 +11292,7 @@ sub compile_perl() {
     # Earliest releases didn't have title case.  Initialize it to empty if not
     # otherwise present
     my $Title = $perl->add_match_table('Title');
     # Earliest releases didn't have title case.  Initialize it to empty if not
     # otherwise present
     my $Title = $perl->add_match_table('Title');
+    $Title->add_alias('Titlecase');
     my $lt = $gc->table('Lt');
 
     # Earlier versions of mktables had this related to $lt since they have
     my $lt = $gc->table('Lt');
 
     # Earlier versions of mktables had this related to $lt since they have