X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExtUtils%2FPacklist.t;h=3e455b7ad26add883973c390a40c86afeb741e1a;hb=ea5fc951afef02e4de7ec4d7a93e8ef289815e8b;hp=bdcecdfab0c9703295619edcf84172d3a4afbe82;hpb=b0948e64228c31870c211a3f03a0748d2a811ccc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/ExtUtils/Packlist.t b/lib/ExtUtils/Packlist.t
index bdcecdf..3e455b7 100644
--- a/lib/ExtUtils/Packlist.t
+++ b/lib/ExtUtils/Packlist.t
@@ -84,8 +84,12 @@ SKIP: {
 	# set this file to read-only
 	chmod 0444, 'eplist';
 
-	eval { ExtUtils::Packlist::write({}, 'eplist') };
-	like( $@, qr/Can't open file/, 'write() should croak on open failure' );
+	SKIP: {
+	    skip("can write readonly files", 1) if -w 'eplist';
+
+	    eval { ExtUtils::Packlist::write({}, 'eplist') };
+	    like( $@, qr/Can't open file/, 'write() should croak on open failure' );
+	}
 
 	#'now set it back (tick here fixes vim syntax highlighting ;)
 	chmod 0777, 'eplist';