1. t/TEST now deals with SKIP as if it was TODO. This complies to TAP

2. Removed the depricated 'my $foo if expr' there

p4raw-id: //depot/perl@24173

1 files changed, 5 insertions, 2 deletions

diff --git a/t/TEST b/t/TEST
index 38afe6f691..d60b4f62da 100755
--- 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 ) {