diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-03-04 22:02:23 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-03-05 20:26:09 +0000 |
| commit | 04934b6d6aa9d8ae984e51afba5b2bd9cc855793 (patch) | |
| tree | c32a211c465af3f719675df8466890f36cb1ae57 | |
| parent | ce352dcb4224f1e8aa9bd85ca5fbb350e83cadd2 (diff) | |
| download | perl-04934b6d6aa9d8ae984e51afba5b2bd9cc855793.tar.gz | |
Use $::TODO, instead of $TODO, and relying on use vars '$TODO' in ReTest.pl
| -rw-r--r-- | t/re/pat.t | 8 | ||||
| -rw-r--r-- | t/re/pat_advanced.t | 2 | ||||
| -rw-r--r-- | t/re/pat_rt_report.t | 12 |
3 files changed, 11 insertions, 11 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index 8c8baf1302..e260af47f6 100644 --- 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 df3e2bfb73..82b3f63648 100644 --- 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 bf71634a9a..a115264e7c 100644 --- 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; |