This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
1. t/TEST now deals with SKIP as if it was TODO. This complies to TAP
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 6 Apr 2005 06:14:51 +0000 (06:14 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 6 Apr 2005 06:14:51 +0000 (06:14 +0000)
2. Removed the depricated 'my $foo if expr' there

p4raw-id: //depot/perl@24173

t/TEST

diff --git a/t/TEST b/t/TEST
index 38afe6f..d60b4f6 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -426,8 +426,11 @@ EOT
                        }
                        $seen_ok = 1;
                        if ($2 == $next) {
-                           my($not, $num, $extra) = ($1, $2, $3);
-                           my($istodo) = $extra =~ /#\s*TODO/ if $extra;
+                           my($not, $num, $extra, $istodo) = ($1, $2, $3, 0);
+                           # SKIP is essentially the same as TODO for t/TEST
+                           # this still conforms to TAP:
+                           # http://search.cpan.org/dist/Test-Harness/lib/Test/Harness/TAP.pod
+                           $extra and $istodo = $extra =~ /#\s*(?:TODO|SKIP)\b/;
                            $istodo = 1 if $todo{$num};
 
                            if( $not && !$istodo ) {