This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perluniprops: Add missing character to what's matched
authorKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 04:00:16 +0000 (22:00 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 04:07:47 +0000 (22:07 -0600)
mktables omitted the equal sign from the generated pod for certain
properties that should match it.

lib/unicore/mktables

index 5bb67e9..807fb31 100644 (file)
@@ -13254,7 +13254,7 @@ sub compile_perl() {
     $Graph->add_alias('XPosixGraph');
     $perl->add_match_table("PosixGraph",
                             Description =>
-                                '[-!"#$%&\'()*+,./:;<>?@[\\\]^_`{|}~0-9A-Za-z]',
+                                '[-!"#$%&\'()*+,./:;<=>?@[\\\]^_`{|}~0-9A-Za-z]',
                             Initialize => $Graph & $ASCII,
                             );
 
@@ -13265,7 +13265,7 @@ sub compile_perl() {
     $print->add_alias('XPosixPrint');
     $perl->add_match_table("PosixPrint",
                             Description =>
-                              '[- 0-9A-Za-z!"#$%&\'()*+,./:;<>?@[\\\]^_`{|}~]',
+                              '[- 0-9A-Za-z!"#$%&\'()*+,./:;<=>?@[\\\]^_`{|}~]',
                             Initialize => $print & $ASCII,
                             );
 
@@ -13280,7 +13280,7 @@ sub compile_perl() {
                                 Perl_Extension => 1
         );
     $perl->add_match_table('PosixPunct', Perl_Extension => 1,
-        Description => '[-!"#$%&\'()*+,./:;<>?@[\\\]^_`{|}~]',
+        Description => '[-!"#$%&\'()*+,./:;<=>?@[\\\]^_`{|}~]',
         Initialize => $ASCII & $XPosixPunct,
         );