summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-05-28 12:55:29 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-28 12:55:29 +0000
commit38378574b9a8ff09020260d6092054ca334507b6 (patch)
treed232031a882f233df0a566419d0210115e1159d7 /lib
parent195d559b8ef22ad8837051fd15a3100fca99b37f (diff)
downloadperl-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.pm7
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;