diff options
| author |   afresh1 <afresh1@openbsd.org> | 2017-02-05 00:31:51 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2017-02-05 00:31:51 +0000 |
| commit | b8851fcc53cbe24fd20b090f26dd149e353f6174 (patch) | |
| tree | 4b7c1695865f00ab7a0da30b5632d514848ea3a2 /gnu/usr.bin/perl/t/lib/feature/implicit | |
| parent | Add option PCIVERBOSE. (diff) | |
| download | wireguard-openbsd-b8851fcc53cbe24fd20b090f26dd149e353f6174.tar.xz wireguard-openbsd-b8851fcc53cbe24fd20b090f26dd149e353f6174.zip | |
Fix merge issues, remove excess files - match perl-5.24.1 dist
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/feature/implicit')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/feature/implicit | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/t/lib/feature/implicit b/gnu/usr.bin/perl/t/lib/feature/implicit index a741421e7d3..79f1bf8888a 100644 --- a/gnu/usr.bin/perl/t/lib/feature/implicit +++ b/gnu/usr.bin/perl/t/lib/feature/implicit @@ -107,18 +107,21 @@ b ######## # Implicit unicode_string feature use v5.14; -print 'ss' =~ /\xdf/i ? "ok\n" : "nok\n"; +my $sharp_s = chr utf8::unicode_to_native(0xdf); +print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n"; use v5.8.8; -print 'ss' =~ /\xdf/i ? "ok\n" : "nok\n"; +print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n"; EXPECT ok nok ######## # Implicit unicode_eval feature use v5.15; -print eval "use utf8; q|\xc5\xbf|" eq "\xc5\xbf" ? "ok\n" : "nok\n"; +require '../../t/charset_tools.pl'; +my $long_s = byte_utf8a_to_utf8n("\xc5\xbf"); +print eval "use utf8; q|$long_s|" eq $long_s ? "ok\n" : "nok\n"; use v5.8.8; -print eval "use utf8; q|\xc5\xbf|" eq "\x{17f}" ? "ok\n" : "nok\n"; +print eval "use utf8; q|$long_s|" eq "\x{17f}" ? "ok\n" : "nok\n"; EXPECT ok ok |