Retract the Straps part of #16829 for now since

the subtest 44 of t/strap.t started failing.

p4raw-id: //depot/perl@16830

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index 8ce5722..8f4f6bd 100644 (file)
--- 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;