Re: [perl #948] $, untieable?

Message-ID: <20031020230249.GA31123@mirth.demon.co.uk>

Plus a small fix to t/TEST to recognize the added TODO test
as a TODO test.

p4raw-id: //depot/perl@21532

1 files changed, 1 insertions, 1 deletions

diff --git a/t/TEST b/t/TEST
index 08787e2f5b..7ff34b2a7c 100755
--- a/t/TEST
+++ b/t/TEST
@@ -353,7 +353,7 @@ EOT
 			$seen_ok = 1;
 			if ($2 == $next) {
 			    my($not, $num, $extra) = ($1, $2, $3);
-			    my($istodo) = $extra =~ /^\s*#\s*TODO/ if $extra;
+			    my($istodo) = $extra =~ /#\s*TODO/ if $extra;
 			    $istodo = 1 if $todo{$num};
 
 			    if( $not && !$istodo ) {