Changeset 6758 for inc

Timestamp:

09/06/05 00:41:05 (3 years ago)

Author:

Darren_Duncan

Message:

converted tabs to 8 spaces each in inc/Test/Harness.pm and inc/Test/Harness/Straps.pm

Location:

inc/Test

Files:

• Harness.pm (modified) (1 diff)
• Harness/Straps.pm (modified) (4 diffs)

inc/Test/Harness.pm

@@ -822 +822 @@
     push @result, "\tFailed $failed/$max tests, ";
     if ($max) {
-        push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
+        push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
     } else {
-        push @result, "?% okay";
+        push @result, "?% okay";
     }
     my $ender = 's' x ($skipped > 1);
     if ($skipped) {
         my $good = $max - $failed - $skipped;
-        my $skipmsg = " (less $skipped skipped test$ender: $good okay, ";
-        if ($max) {
-            my $goodper = sprintf("%.2f",100*($good/$max));
-            $skipmsg .= "$goodper%)";
-        } else {
-            $skipmsg .= "?%)";
-        }
-        push @result, $skipmsg;
+        my $skipmsg = " (less $skipped skipped test$ender: $good okay, ";
+        if ($max) {
+            my $goodper = sprintf("%.2f",100*($good/$max));
+            $skipmsg .= "$goodper%)";
+        } else {
+            $skipmsg .= "?%)";
+        }
+        push @result, $skipmsg;
     }
     push @result, "\n";

inc/Test/Harness/Straps.pm

@@ -387 +387 @@
     # MacPerl's putenv is broken, so it will not see PERL5LIB, tainted or not.
     if ( $taint || $self->{_is_macos} ) {
-        my @inc = $self->_filtered_INC;
-        push @derived_switches, map { "-I$_" } @inc;
+        my @inc = $self->_filtered_INC;
+        push @derived_switches, map { "-I$_" } @inc;
     }
 
@@ -395 +395 @@
     # it if it's already quoted.
     for ( @derived_switches ) {
-        $_ = qq["$_"] if ((/\s/ || $self->{_is_vms}) && !/^".*"$/ );
+        $_ = qq["$_"] if ((/\s/ || $self->{_is_vms}) && !/^".*"$/ );
     }
     return join( " ", @existing_switches, @derived_switches );
@@ -415 +415 @@
     my @switches;
     for ( @_ ) {
-        my $switch = $_;
-        next unless defined $switch;
-        $switch =~ s/^\s+//;
-        $switch =~ s/\s+$//;
-        push( @switches, $switch ) if $switch ne "";
+        my $switch = $_;
+        next unless defined $switch;
+        $switch =~ s/^\s+//;
+        $switch =~ s/\s+$//;
+        push( @switches, $switch ) if $switch ne "";
     }
 
@@ -456 +456 @@
 
     if( $self->{_is_vms} ) {
-        # VMS has a 255-byte limit on the length of %ENV entries, so
-        # toss the ones that involve perl_root, the install location
+        # VMS has a 255-byte limit on the length of %ENV entries, so
+        # toss the ones that involve perl_root, the install location
         @inc = grep !/perl_root/i, @inc;
 
     } elsif ( $self->{_is_win32} ) {
-        # Lose any trailing backslashes in the Win32 paths
-        s/[\\\/+]$// foreach @inc;
+        # Lose any trailing backslashes in the Win32 paths
+        s/[\\\/+]$// foreach @inc;
     }