This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct \p{print} to not match LINE SEPARATOR nor PARAGRAPH SEPARATOR
authorKarl Williamson <khw@khw-desktop.(none)>
Tue, 29 Dec 2009 23:38:38 +0000 (16:38 -0700)
committerAbigail <abigail@abigail.be>
Wed, 30 Dec 2009 11:29:35 +0000 (12:29 +0100)
The Unicode Standard defines (as a recommendation) that Print be based on
graphical characters and blank characters (minus controls).  Perl's has been
based on space rather than blank. The only practical effect this has is that
Perl erroneously matches the LINE SEPARATOR and PARAGRAPH SEPARATOR, which
clearly are not printable characters.

Signed-off-by: Abigail <abigail@abigail.be>
lib/unicore/mktables
pod/perlunicode.pod

index 12f6659..fbc3fab 100644 (file)
@@ -10781,7 +10781,7 @@ sub compile_perl() {
 
     my $Print = $perl->add_match_table('Print',
                         Description => "[[:Print:]] extended beyond ASCII",
-                        Initialize => $Space + $Graph - $gc->table('Control'),
+                        Initialize => $Blank + $Graph - $gc->table('Control'),
                         );
     $posix_equivalent{'Print'} = $Print;
 
@@ -10801,6 +10801,7 @@ sub compile_perl() {
     $posix_equivalent{'Digit'} = $Digit;
 
     # AHex was not present in early releases
+    # XXX TUS recommends Hex_Digit, not ASCII_Hex_Digit.
     my $Xdigit = $perl->add_match_table('XDigit',
                                         Description => '[0-9A-Fa-f]');
     my $AHex = property_ref('ASCII_Hex_Digit');
@@ -14168,3 +14169,5 @@ sub Finished() {
 
 Error('\p{Script=InGreek}');    # Bug #69018
 Test_X("1100 $nobreak 1161");  # Bug #70940
+Expect(0, 0x2028, '\p{Print}', ""); # Bug # 71722
+Expect(0, 0x2029, '\p{Print}', ""); # Bug # 71722
index 1ebed0d..50a2843 100644 (file)
@@ -721,7 +721,7 @@ matches as well.
 
 =item B<C<\p{Print}>>
 
-This matches any character that is graphical or is space, but not a control.
+This matches any character that is graphical or blank, except controls.
 
 =item B<C<\p{SpacePerl}>>