This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Devel::PPPort: Do not run tests which use \N{U+XX} on Perl 5.12.0
authorPali <pali@cpan.org>
Tue, 23 Jan 2018 22:36:06 +0000 (23:36 +0100)
committerTony Cook <tony@develop-help.com>
Tue, 30 Jan 2018 23:03:53 +0000 (10:03 +1100)
Perl 5.12.0 has bug when parsing \N{U+XX} syntax and throw error:
Invalid hexadecimal number in \N{U+...} in regex.

dist/Devel-PPPort/parts/inc/mess
dist/Devel-PPPort/t/mess.t

index daebe15..9ef95cf 100644 (file)
@@ -425,7 +425,7 @@ if ($] ge '5.006') {
 
 if (ord('A') != 65) {
     skip 'skip: no ASCII support', 0 for 1..24;
-} elsif ($] ge '5.008') {
+} elsif ($] ge '5.008' && $] ne '5.012000') {
     undef $die;
     ok !defined eval { Devel::PPPort::croak_sv(eval '"\N{U+E1}\n"') };
     ok $@, "\xE1\n";
index e0c746d..9a9822a 100644 (file)
@@ -191,7 +191,7 @@ if ($] ge '5.006') {
 
 if (ord('A') != 65) {
     skip 'skip: no ASCII support', 0 for 1..24;
-} elsif ($] ge '5.008') {
+} elsif ($] ge '5.008' && $] ne '5.012000') {
     undef $die;
     ok !defined eval { Devel::PPPort::croak_sv(eval '"\N{U+E1}\n"') };
     ok $@, "\xE1\n";