diff options
author | Michael G. Schwern <schwern@pobox.com> | 2002-03-28 23:12:47 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-29 14:45:52 +0000 |
commit | f6d6199cd6711f5e8a8e6c1a57445fa6f848c822 (patch) | |
tree | a3b30650d6c0eec8c7513c42453ae2e7f28cc5b2 /lib/ExtUtils/t/Command.t | |
parent | 798fbbe475389cc5bd681489265a68eee841b426 (diff) | |
download | perl-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.t | 48 |
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' ) ); |