constant.pm: Make list constants read-only

[perl5.git] / dist / constant / t / constant.t

diff --git a/dist/constant/t/constant.t b/dist/constant/t/constant.t
index 6b2ac27..3a82271 100644 (file)
--- a/dist/constant/t/constant.t
+++ b/dist/constant/t/constant.t
@@ -363,7 +363,6 @@ eval q{
        local $TODO;
        if ($Config::Config{useithreads}) {
            skip "fails under threads", 1 if $] < 5.019001;
-           $TODO = ' ';
        }
        like $@, qr/^Modification of a read-only value attempted at /,
            '... and immutable through refgen, too';
@@ -387,18 +386,16 @@ SKIP: {
     local $TODO;
     if ($Config::Config{useithreads}) {
        skip "fails under threads", 1 if $] < 5.019001;
-       $TODO = ' ';
     }
     like $@, qr/^Modification of a read-only value attempted at /,
        '... and immutable through refgen, too';
 }
 
 # Test that list constants are also immutable.  This only works under
-# 5.19.1 and later (er, except it doesn’t work under that version yet,
+# 5.19.2 and later (er, except it doesn’t work under that version yet,
 # either, hence the to-do status).
 SKIP: {
-    skip "fails under 5.19.0 and earlier", 2 if $] < 5.019001;
-    local $TODO = " ";
+    skip "fails under 5.19.1 and earlier", 2 if $] < 5.019002;
     use constant constant_list => 1..2;
     for (constant_list) {
        my $num = $_;