diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 12:55:29 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 12:55:29 +0000 |
commit | 38378574b9a8ff09020260d6092054ca334507b6 (patch) | |
tree | d232031a882f233df0a566419d0210115e1159d7 /lib | |
parent | 195d559b8ef22ad8837051fd15a3100fca99b37f (diff) | |
download | perl-38378574b9a8ff09020260d6092054ca334507b6.tar.gz |
Retract the Straps part of #16829 for now since
the subtest 44 of t/strap.t started failing.
p4raw-id: //depot/perl@16830
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Test/Harness/Straps.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm index 8ce5722eda..8f4f6bde48 100644 --- a/lib/Test/Harness/Straps.pm +++ b/lib/Test/Harness/Straps.pm @@ -443,12 +443,7 @@ sub _is_header { if( my($max, $extra) = $line =~ /^1\.\.(\d+)(.*)/ ) { $self->{max} = $max; assert( $self->{max} >= 0, 'Max # of tests looks right' ); - - if( not $max and not $extra) { - #We're skipping, thats for sure - $self->{skip_all} = 'no reason given'; - } - elsif( defined $extra ) { + if( defined $extra ) { my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo; $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo; |