From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 24 Sep 2001 11:02:07 +0000 (-0400)
Subject: Fixing inline TODO recognition
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e617780ba3a77b9e5f4b14ef25a0f145bb026844;p=p5sagit%2Fp5-mst-13.2.git

Fixing inline TODO recognition
Message-ID: <20010924110207.E27885@blackrider>

p4raw-id: //depot/perl@12177
---

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);