Output skipped test information in test suite:

	Subject: 5.004_55: Making test harness platform_aware
	Date: Wed, 26 Nov 1997 17:16:55 -0500 (EST)
	Date: Wed, 26 Nov 1997 17:16:55 -0500 (EST)

p4raw-id: //depot/perl@318

1 files changed, 1 insertions, 1 deletions

diff --git a/t/TEST b/t/TEST
index cae81031c2..a684b2ab65 100755
--- a/t/TEST
+++ b/t/TEST
@@ -83,7 +83,7 @@ while ($test = shift) {
 		$ok = 1;
 	    } else {
 		$next = $1, $ok = 0, last if /^not ok ([0-9]*)/;
-		if (/^ok (.*)/ && $1 == $next) {
+		if (/^ok (\d+)(\s*#.*)?$/ && $1 == $next) {
 		    $next = $next + 1;
 		} else {
 		    $ok = 0;