summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/t/Command.t
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2002-03-28 23:12:47 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-29 14:45:52 +0000
commitf6d6199cd6711f5e8a8e6c1a57445fa6f848c822 (patch)
treea3b30650d6c0eec8c7513c42453ae2e7f28cc5b2 /lib/ExtUtils/t/Command.t
parent798fbbe475389cc5bd681489265a68eee841b426 (diff)
downloadperl-f6d6199cd6711f5e8a8e6c1a57445fa6f848c822.tar.gz
MakeMaker sync 5.48_03 -> 5.53_01
Message-ID: <20020329091247.GA7432@blackrider> (with two nits: (1) change lib/Extutils/Command/MM.pm in MANIFEST to be lib/ExtUtils/Command/MM.pm (2) Add @INC to compile.t) p4raw-id: //depot/perl@15599
Diffstat (limited to 'lib/ExtUtils/t/Command.t')
-rw-r--r--lib/ExtUtils/t/Command.t48
1 files changed, 24 insertions, 24 deletions
diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t
index c4f9fd249a..01d018648e 100644
--- 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' ) );