In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/10417d4775a08e4e3438d6f298f69b6ada5e2fea?hp=03f2f429b004203901c539bc1c6c59d829c71f66>
- Log ----------------------------------------------------------------- commit 10417d4775a08e4e3438d6f298f69b6ada5e2fea Author: Pali <[email protected]> Date: Mon Jan 22 18:29:11 2018 +0100 Devel::PPPort: Skip ASCII tests on non-ASCII platforms ----------------------------------------------------------------------- Summary of changes: dist/Devel-PPPort/parts/inc/mess | 4 +++- dist/Devel-PPPort/t/mess.t | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/dist/Devel-PPPort/parts/inc/mess b/dist/Devel-PPPort/parts/inc/mess index 965e58a5ba..d73b4e5605 100644 --- a/dist/Devel-PPPort/parts/inc/mess +++ b/dist/Devel-PPPort/parts/inc/mess @@ -433,7 +433,9 @@ if ($] ge '5.006') { skip 'skip: no utf8 support', 0 for 1..12; } -if ($] ge '5.008') { +if (ord('A') != 65) { + skip 'skip: no ASCII support', 0 for 1..24; +} elsif ($] ge '5.008') { undef $die; ok !defined eval { Devel::PPPort::croak_sv(eval '"\N{U+E1}\n"') }; ok $@, "\xE1\n"; diff --git a/dist/Devel-PPPort/t/mess.t b/dist/Devel-PPPort/t/mess.t index cb34788b63..e0c746d6ed 100644 --- a/dist/Devel-PPPort/t/mess.t +++ b/dist/Devel-PPPort/t/mess.t @@ -189,7 +189,9 @@ if ($] ge '5.006') { skip 'skip: no utf8 support', 0 for 1..12; } -if ($] ge '5.008') { +if (ord('A') != 65) { + skip 'skip: no ASCII support', 0 for 1..24; +} elsif ($] ge '5.008') { undef $die; ok !defined eval { Devel::PPPort::croak_sv(eval '"\N{U+E1}\n"') }; ok $@, "\xE1\n"; -- Perl5 Master Repository
