From e617780ba3a77b9e5f4b14ef25a0f145bb026844 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Mon, 24 Sep 2001 07:02:07 -0400
Subject: [PATCH] Fixing inline TODO recognition Message-ID:
 <20010924110207.E27885@blackrider>

p4raw-id: //depot/perl@12177
---
 vms/test.com | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vms/test.com b/vms/test.com
index 7eb957d..ce98bff 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -201,7 +201,7 @@ while ($test = shift) {
 		next if /^\s*$/;
 
 
-                if (/^(not )?ok (\d+)(\s*#.*)?/ &&
+                if (/^(not )?ok (\d+)[^#]*(\s*#.*)?/ &&
                     $2 == $next)
                 {
                     my($not, $num, $extra) = ($1, $2, $3);
-- 
2.7.4