diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-09-24 07:02:07 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-24 14:02:32 +0000 |
| commit | e617780ba3a77b9e5f4b14ef25a0f145bb026844 (patch) | |
| tree | 34d79d8384c3fcf42c3fdff3196fe2d6006a992b /vms/test.com | |
| parent | 45839f72c7aa7b3d0bea1003f91ad79927b4b8dd (diff) | |
| download | perl-e617780ba3a77b9e5f4b14ef25a0f145bb026844.tar.gz | |
Fixing inline TODO recognition
Message-ID: <20010924110207.E27885@blackrider>
p4raw-id: //depot/perl@12177
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/test.com b/vms/test.com index 7eb957dfd2..ce98bff0d8 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); |