In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/eb76558003b95f2e17e40b58e97e2c66236a259f?hp=346f9bfbe12d91fec534d97f05ab9e7f5a8b8230>
- Log ----------------------------------------------------------------- commit eb76558003b95f2e17e40b58e97e2c66236a259f Author: Karl Williamson <[email protected]> Date: Sun Apr 8 15:03:56 2018 -0600 re/regexp_unicode_prop.t: Add test User-defined properties can have the same name as, and override an official property definition. This may or may not be the correct behavior going forward, but it shouldn't be changed inadvertently. ----------------------------------------------------------------------- Summary of changes: t/re/regexp_unicode_prop.t | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/t/re/regexp_unicode_prop.t b/t/re/regexp_unicode_prop.t index 1544482334..42191dfb21 100644 --- a/t/re/regexp_unicode_prop.t +++ b/t/re/regexp_unicode_prop.t @@ -100,6 +100,9 @@ my @USER_DEFINED_PROPERTIES = ( Dash => ['-'], ASCII_Hex_Digit => ['!-', 'A'], IsAsciiHexAndDash => ['-', 'A'], + + # This overrides the official one + InLatin1 => ['\x{0100}', '!\x{00FF}'], ); my @USER_CASELESS_PROPERTIES = ( @@ -342,6 +345,10 @@ sub IsAsciiHexAndDash {<<'--'} +utf8::Dash -- +sub InLatin1 { + return "0100\t10FFFF"; +} + sub IsMyUpper { my $caseless = shift; return "+utf8::" -- Perl5 Master Repository
