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