X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Ffiletest.t;h=271c4f07ab5bd2c53fbe9c580e2aeaaa403b53ac;hb=25988e07f3c5c5717930b897625a3e6119c92879;hp=d0ca69a12a18e3d1cf957b39009812aca2f18454;hpb=fbb0b3b383a878902acf90a09bf05a52493ef56c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/filetest.t b/t/op/filetest.t
index d0ca69a..271c4f0 100755
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -19,8 +19,8 @@ ok( !-d 'TEST' );
 ok( -r 'TEST' );
 
 # make sure TEST is r-x
-eval { chmod 0555, 'TEST' };
-$bad_chmod = $@;
+eval { chmod 0555, 'TEST' or die "chmod 0555, 'TEST' failed: $!" };
+chomp ($bad_chmod = $@);
 
 $oldeuid = $>;		# root can read and write anything
 eval '$> = 1';		# so switch uid (may not be implemented)
@@ -35,7 +35,7 @@ SKIP: {
 	skip('we cannot chmod symlinks');
     }
     elsif ($bad_chmod) {
-	skip( $@ );
+	skip( $bad_chmod );
     }
     else {
 	ok( !-w 'TEST' );