From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 23 Sep 2001 19:11:44 +0000 (+0200)
Subject: PATCH lib/ExtUtils/Command.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3af7c81f789b728b552ebce01c8789c9ce52402d;p=p5sagit%2Fp5-mst-13.2.git

PATCH lib/ExtUtils/Command.t
Message-Id: <b94sqtk7sidi2501apjssfubdc2ulmap38@4ax.com>

p4raw-id: //depot/perl@12159
---

diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t
index 763ae0c..4c1ee08 100644
--- a/lib/ExtUtils/Command.t
+++ b/lib/ExtUtils/Command.t
@@ -93,7 +93,7 @@ BEGIN {
 	@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' ) );