This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/mess: Some things are broken in the 5.7 series
authorKarl Williamson <khw@cpan.org>
Wed, 10 Jul 2019 04:09:27 +0000 (22:09 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
while working earlier and later

(cherry picked from commit fa7ee13073f7d45e205cd6cdd7e727c83739ed30)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/mess
dist/Devel-PPPort/t/mess.t

index 0aba9ec..5548166 100644 (file)
@@ -441,8 +441,12 @@ if ($] ge '5.006') {
 
     undef $die;
     ok !defined eval { Devel::PPPort::croak_sv("\x{100}\n") };
-    ok $@, "\x{100}\n";
-    if ($] ne '5.008') {
+    if ("$]" < '5.007001' || "$]" > '5.007003') {
+        ok $@, "\x{100}\n";
+    } else {
+        skip 'skip: broken utf8 support in die hook', 0;
+    }
+    if ("$]" < '5.007001' || "$]" > '5.008') {
         ok $die, "\x{100}\n";
     } else {
         skip 'skip: broken utf8 support in die hook', 0;
@@ -450,14 +454,18 @@ if ($] ge '5.006') {
 
     undef $die;
     ok !defined eval { Devel::PPPort::croak_sv("\x{100}") };
-    ok $@ =~ /^\x{100} at $0 line /;
-    if ($] ne '5.008') {
+    if ("$]" < '5.007001' || "$]" > '5.007003') {
+        ok $@ =~ /^\x{100} at $0 line /;
+    } else {
+        skip 'skip: broken utf8 support in die hook', 0;
+    }
+    if ("$]" < '5.007001' || "$]" > '5.008') {
         ok $die =~ /^\x{100} at $0 line /;
     } else {
         skip 'skip: broken utf8 support in die hook', 0;
     }
 
-    if ($] ne '5.008') {
+    if ("$]" < '5.007001' || "$]" > '5.008') {
         undef $warn;
         Devel::PPPort::warn_sv("\x{100}\n");
         ok $warn, "\x{100}\n";
index 5cfc279..9e84da9 100644 (file)
@@ -175,8 +175,12 @@ if ($] ge '5.006') {
 
     undef $die;
     ok !defined eval { Devel::PPPort::croak_sv("\x{100}\n") };
-    ok $@, "\x{100}\n";
-    if ($] ne '5.008') {
+    if ("$]" < '5.007001' || "$]" > '5.007003') {
+        ok $@, "\x{100}\n";
+    } else {
+        skip 'skip: broken utf8 support in die hook', 0;
+    }
+    if ("$]" < '5.007001' || "$]" > '5.008') {
         ok $die, "\x{100}\n";
     } else {
         skip 'skip: broken utf8 support in die hook', 0;
@@ -184,14 +188,18 @@ if ($] ge '5.006') {
 
     undef $die;
     ok !defined eval { Devel::PPPort::croak_sv("\x{100}") };
-    ok $@ =~ /^\x{100} at $0 line /;
-    if ($] ne '5.008') {
+    if ("$]" < '5.007001' || "$]" > '5.007003') {
+        ok $@ =~ /^\x{100} at $0 line /;
+    } else {
+        skip 'skip: broken utf8 support in die hook', 0;
+    }
+    if ("$]" < '5.007001' || "$]" > '5.008') {
         ok $die =~ /^\x{100} at $0 line /;
     } else {
         skip 'skip: broken utf8 support in die hook', 0;
     }
 
-    if ($] ne '5.008') {
+    if ("$]" < '5.007001' || "$]" > '5.008') {
         undef $warn;
         Devel::PPPort::warn_sv("\x{100}\n");
         ok $warn, "\x{100}\n";