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 /t/re/pat.t | |
parent | ce352dcb4224f1e8aa9bd85ca5fbb350e83cadd2 (diff) | |
download | perl-04934b6d6aa9d8ae984e51afba5b2bd9cc855793.tar.gz |
Use $::TODO, instead of $TODO, and relying on use vars '$TODO' in ReTest.pl
Diffstat (limited to 't/re/pat.t')
-rw-r--r-- | t/re/pat.t | 8 |
1 files changed, 4 insertions, 4 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; |