diff options
| author |   afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
| commit | 9f11ffb7133c203312a01e4b986886bc88c7d74b (patch) | |
| tree | 6618511204c614b20256e4ef9dea39a7b311d638 /gnu/usr.bin/perl/t/re/regexp_unicode_prop.t | |
| parent | Import perl-5.28.1 (diff) | |
| download | wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.tar.xz wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.zip | |
Fix merge issues, remove excess files - match perl-5.28.1 dist
looking good sthen@, Great! bluhm@
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 | 7 |
1 files changed, 7 insertions, 0 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 1544482334c..42191dfb211 100755 --- a/gnu/usr.bin/perl/t/re/regexp_unicode_prop.t +++ b/gnu/usr.bin/perl/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::" |