diff options
| author | Karl Williamson <khw@cpan.org> | 2021-07-07 06:50:45 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-07-25 10:15:29 -0600 |
| commit | 726f0605ed00fdfa7041c3f91c84273723f61555 (patch) | |
| tree | 352cbd7aaf9f71bfec1c68dbaf258e510a86930b | |
| parent | a088f06523f85202c13e6fc78766f7a983d9a94d (diff) | |
| download | perl-726f0605ed00fdfa7041c3f91c84273723f61555.tar.gz | |
pat_advanced.t: EBCDIC fix
| -rw-r--r-- | t/re/pat_advanced.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index d67987099a..56bc5e9e04 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -1144,10 +1144,10 @@ sub run_tests { { my @ary = ( - pack('U', 0x00F1), # n-tilde - '_'.pack('U', 0x00F1), # _ + n-tilde + pack('U', utf8::unicode_to_native(0x00F1)), # n-tilde + '_'.pack('U', utf8::unicode_to_native(0x00F1)), # _ + n-tilde 'c'.pack('U', 0x0327), # c + cedilla - pack('U*', 0x00F1, 0x0327),# n-tilde + cedilla + pack('U*', utf8::unicode_to_native(0x00F1), 0x0327),# n-tilde + cedilla pack('U', 0x0391), # ALPHA pack('U', 0x0391).'2', # ALPHA + 2 pack('U', 0x0391).'_', # ALPHA + _ |