Use $::TODO, instead of $TODO, and relying on use vars '$TODO' in ReTest.pl

diff --git a/t/re/pat.t b/t/re/pat.t
index 8c8baf1..e260af4 100644 (file)
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -704,7 +704,7 @@ sub run_tests {
         unlike($str, qr/^...\G/, $message);
         ok($str =~ /\G../ && $& eq 'cd', $message);
 
-        local $TODO = $running_as_thread;
+        local $::TODO = $::running_as_thread;
         ok($str =~ /.\G./ && $& eq 'bc', $message);
     }
 
@@ -779,7 +779,7 @@ sub run_tests {
         my $foo = 'aabbccddeeffgg';
         pos ($foo) = 1;
         {
-            local $TODO = $running_as_thread;
+            local $::TODO = $::running_as_thread;
             no warnings 'uninitialized';
             ok($foo =~ /.\G(..)/g, $message);
             is($1, 'ab', $message);
@@ -1071,7 +1071,7 @@ sub run_tests {
 
         my $message = '\p property after empty * match';
         {
-            local $TODO = "Bug 77414";
+            local $::TODO = "Bug 77414";
             like("1", qr/\s*\pN/, $message);
             like("-", qr/\s*\p{Dash}/, $message);
             like(" ", qr/\w*\p{Blank}/, $message);
@@ -1158,7 +1158,7 @@ sub run_tests {
     }
 
     {
-        local $TODO = "[perl #38133]";
+        local $::TODO = "[perl #38133]";
 
         "A" =~ /(((?:A))?)+/;
         my $first = $2;

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index df3e2bf..82b3f63 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -880,7 +880,7 @@ sub run_tests {
         # hasn't been crashing. Disable this test until it is fixed properly.
         # XXX also check what it returns rather than just doing ok(1,...)
         # split /(?{ split "" })/, "abc";
-        local $TODO = "Recursive split is still broken";
+        local $::TODO = "Recursive split is still broken";
         ok 0, 'cache_re & "(?{": it dumps core in 5.6.1 & 5.8.0';
     }
 

diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index bf71634..a115264 100644 (file)
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -440,7 +440,7 @@ sub run_tests {
         # hasn't been crashing. Disable this test until it is fixed properly.
         # XXX also check what it returns rather than just doing ok(1,...)
         # split /(?{ split "" })/, "abc";
-        local $TODO = "Recursive split is still broken";
+        local $::TODO = "Recursive split is still broken";
         ok 0, 'cache_re & "(?{": it dumps core in 5.6.1 & 5.8.0';
     }
 
@@ -602,7 +602,7 @@ sub run_tests {
 
 
     {
-        local $TODO = "See changes 26925-26928, which reverted change 26410";
+        local $::TODO = "See changes 26925-26928, which reverted change 26410";
         {
             package lv;
             our $var = "abc";
@@ -620,7 +620,7 @@ sub run_tests {
             iseq $f, "ab", "pos() retained between calls";
         }
         else {
-            local $TODO;
+            local $::TODO;
             ok 0, "Code failed: $@";
         }
 
@@ -637,7 +637,7 @@ sub run_tests {
             iseq $g, "ab", "pos() retained between calls";
         }
         else {
-            local $TODO;
+            local $::TODO;
             ok 0, "Code failed: $@";
         }
     }
@@ -905,7 +905,7 @@ sub run_tests {
         for my $l (10, 100, 1000) {
             $count = 0;
             ('a' x $l) =~ /(.*)(?{$count++})[bc]/;
-            local $TODO = "Should be L+1 not L*(L+3)/2 (L=$l)";
+            local $::TODO = "Should be L+1 not L*(L+3)/2 (L=$l)";
             is($count, $l + 1, $message);
         }
     }
@@ -1161,7 +1161,7 @@ sub run_tests {
     }
 
     {
-        local $TODO = "[perl #38133]";
+        local $::TODO = "[perl #38133]";
 
         "A" =~ /(((?:A))?)+/;
         my $first = $2;