From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 28 May 2002 12:55:29 +0000 (+0000)
Subject: Retract the Straps part of #16829 for now since
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38378574b9a8ff09020260d6092054ca334507b6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;