diff options
author | 2021-03-01 23:19:42 +0000 | |
---|---|---|
committer | 2021-03-01 23:19:42 +0000 | |
commit | 56d68f1e19ff848c889ecfa71d3a06340ff64892 (patch) | |
tree | 272372e9e82dd675d06054187c7f04b32fe71acc /gnu/usr.bin/perl/t/re/regexp_unicode_prop.t | |
parent | Import perl-5.32.1 (diff) | |
download | wireguard-openbsd-56d68f1e19ff848c889ecfa71d3a06340ff64892.tar.xz wireguard-openbsd-56d68f1e19ff848c889ecfa71d3a06340ff64892.zip |
Fix merge issues, remove excess files - match perl-5.32.1 dist
OK sthen@
Diffstat (limited to 'gnu/usr.bin/perl/t/re/regexp_unicode_prop.t')
-rwxr-xr-x | gnu/usr.bin/perl/t/re/regexp_unicode_prop.t | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/gnu/usr.bin/perl/t/re/regexp_unicode_prop.t b/gnu/usr.bin/perl/t/re/regexp_unicode_prop.t index 6df29687358..527641dc400 100755 --- a/gnu/usr.bin/perl/t/re/regexp_unicode_prop.t +++ b/gnu/usr.bin/perl/t/re/regexp_unicode_prop.t @@ -2,6 +2,7 @@ # # Tests that have to do with checking whether characters have (or not have) # certain Unicode properties; belong (or not belong) to blocks, scripts, etc. +# including user-defined properties # use strict; @@ -143,6 +144,7 @@ BEGIN { Dash => ['-'], ASCII_Hex_Digit => ['!-', 'A'], IsAsciiHexAndDash => ['-', 'A'], + InLatin1 => ['\x{0100}', '!\x{00FF}'], ); @USER_CASELESS_PROPERTIES = ( @@ -194,12 +196,6 @@ BEGIN { } } -# These override the official ones, so if found before defined, the official -# ones prevail, so can't test deferred definition -my @OVERRIDING_USER_DEFINED_PROPERTIES = ( - InLatin1 => ['\x{0100}', '!\x{00FF}'], -); - # # From the short properties we populate POSIX-like classes. # @@ -249,8 +245,7 @@ while (my ($class, $chars) = each %SHORT_PROPERTIES) { push @CLASSES => "# Short properties" => %SHORT_PROPERTIES, "# POSIX like properties" => %d, - "# User defined properties" => @USER_DEFINED_PROPERTIES, - "# Overriding user defined properties" => @OVERRIDING_USER_DEFINED_PROPERTIES; + "# User defined properties" => @USER_DEFINED_PROPERTIES; # |