This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH lib/ExtUtils/Command.t
authorAbe Timmerman <abe@ztreet.demon.nl>
Sun, 23 Sep 2001 19:11:44 +0000 (21:11 +0200)
committerAbhijit Menon-Sen <ams@wiw.org>
Sun, 23 Sep 2001 16:25:01 +0000 (16:25 +0000)
Message-Id: <b94sqtk7sidi2501apjssfubdc2ulmap38@4ax.com>

p4raw-id: //depot/perl@12159

lib/ExtUtils/Command.t

index 763ae0c..4c1ee08 100644 (file)
@@ -93,7 +93,7 @@ BEGIN {
        @ARGV = ( 0600, 'ecmdfile' );
        ExtUtils::Command::chmod();
 
        @ARGV = ( 0600, 'ecmdfile' );
        ExtUtils::Command::chmod();
 
-       is( (stat('ecmdfile'))[2] & 07777, 0600, 'removed non-owner permissions' );
+       is( ((stat('ecmdfile'))[2] & 07777) & 0700, 0600, 'change a file to read-only' );
 
        # mkpath
        @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );
 
        # mkpath
        @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );