MakeMaker sync 5.48_03 -> 5.53_01

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / Command.t

diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t
index c4f9fd2..01d0186 100644 (file)
--- a/lib/ExtUtils/t/Command.t
+++ b/lib/ExtUtils/t/Command.t
@@ -100,40 +100,40 @@ BEGIN {
        ok( abs($now - $stamp) <= 1, 'checking modify time stamp' ) ||
       print "# mtime == $stamp, should be $now\n";
 
-SKIP: {
-       if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' ||
-           $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin') {
-           skip( "different file permission semantics on $^O", 3);
-       }
+    SKIP: {
+        if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' ||
+            $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin') {
+            skip( "different file permission semantics on $^O", 3);
+        }
 
-       # change a file to execute-only
-       @ARGV = ( 0100, 'ecmdfile' );
-       ExtUtils::Command::chmod();
+        # change a file to execute-only
+        @ARGV = ( 0100, 'ecmdfile' );
+        ExtUtils::Command::chmod();
 
-       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
-           0100, 'change a file to execute-only' );
+        is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+            0100, 'change a file to execute-only' );
 
-       # change a file to read-only
-       @ARGV = ( 0400, 'ecmdfile' );
-       ExtUtils::Command::chmod();
+        # change a file to read-only
+        @ARGV = ( 0400, 'ecmdfile' );
+        ExtUtils::Command::chmod();
 
-       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
-           ($^O eq 'vos' ? 0500 : 0400), 'change a file to read-only' );
+        is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+            ($^O eq 'vos' ? 0500 : 0400), 'change a file to read-only' );
 
-       # change a file to write-only
-       @ARGV = ( 0200, 'ecmdfile' );
-       ExtUtils::Command::chmod();
+        # change a file to write-only
+        @ARGV = ( 0200, 'ecmdfile' );
+        ExtUtils::Command::chmod();
 
-       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
-           ($^O eq 'vos' ? 0700 : 0200), 'change a file to write-only' );
-     }
+        is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+            ($^O eq 'vos' ? 0700 : 0200), 'change a file to write-only' );
+    }
 
-       # change a file to read-write
+    # change a file to read-write
        @ARGV = ( 0600, 'ecmdfile' );
        ExtUtils::Command::chmod();
 
-       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
-           ($^O eq 'vos' ? 0700 : 0600), 'change a file to read-write' );
+    is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+        ($^O eq 'vos' ? 0700 : 0600), 'change a file to read-write' );
 
        # mkpath
        @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );