This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fixing inline TODO recognition
authorMichael G. Schwern <schwern@pobox.com>
Mon, 24 Sep 2001 11:02:07 +0000 (07:02 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 24 Sep 2001 14:02:32 +0000 (14:02 +0000)
Message-ID: <20010924110207.E27885@blackrider>

p4raw-id: //depot/perl@12177

vms/test.com

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