diff options
| author | Karl Williamson <khw@cpan.org> | 2019-04-03 12:14:19 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-04-09 12:02:19 -0600 |
| commit | ac542e2e999e665ec99938e798b805dbbdf07ee7 (patch) | |
| tree | 1d97dc1f8bc480ba7dccc7de8783db34f4646ef9 /ext | |
| parent | fec13a430c99aa118efdc1daeb473641bc0b25ee (diff) | |
| download | perl-ac542e2e999e665ec99938e798b805dbbdf07ee7.tar.gz | |
ext/POSIX/t/mb.t: Generalize for EBCDIC
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/t/mb.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/POSIX/t/mb.t b/ext/POSIX/t/mb.t index 961edf6cf2..785400a634 100644 --- a/ext/POSIX/t/mb.t +++ b/ext/POSIX/t/mb.t @@ -15,6 +15,7 @@ BEGIN { } unshift @INC, "../../t"; require 'loc_tools.pl'; + require 'charset_tools.pl'; require 'test.pl'; } @@ -38,7 +39,9 @@ SKIP: { delete $ENV{LC_ALL}; fresh_perl_is( - 'use POSIX; print &POSIX::mblen("\x{c3}\x{28}", &POSIX::MB_CUR_MAX)', + 'use POSIX; print &POSIX::mblen("' + . I8_to_native("\x{c3}\x{28}") + . '", &POSIX::MB_CUR_MAX)', -1, {}, 'mblen() recognizes invalid multibyte characters'); fresh_perl_is( |