From 2fe373ce2a1c176022df002e73eae7d1ec7f2768 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Thu, 6 Sep 2001 23:30:41 -0400
Subject: Test::Harness 1.25 sync Message-ID: <20010907033041.A2796@blackrider>

p4raw-id: //depot/perl@11931
---
 t/TEST | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/TEST')

diff --git a/t/TEST b/t/TEST
index 64da39ca4b..fa945cd6ad 100755
--- a/t/TEST
+++ b/t/TEST
@@ -226,7 +226,7 @@ EOT
 		    $ok = 1;
 		}
 		else {
-		    if (/^(not )?ok (\d+)(\s*#.*)?/ &&
+		    if (/^(not )?ok (\d+)[^#]*(\s*#.*)?/ &&
 			$2 == $next)
 		    {
 			my($not, $num, $extra) = ($1, $2, $3);
-- 
cgit v1.2.1