X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fread.t;h=b27fde17c7ba01d19808dd029ca6f34741c28c2e;hb=8a647129b625da7b991d7050849bf1dc6684f30c;hp=16d32b189c84b5e9dae3a3b1cc84b44a68be1de8;hpb=93c1eb4fb43cf276851ff0a3e758384d1a1d5850;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/read.t b/t/io/read.t
old mode 100644
new mode 100755
index 16d32b1..b27fde1
--- a/t/io/read.t
+++ b/t/io/read.t
@@ -15,8 +15,12 @@ read(A,$b,1,4);
 
 close(A);
 
+unlink("a");
+
 if ($b eq "\000\000\000\000_") {
 	print "ok 1\n";
 } else { # Probably "\000bcd_"
 	print "not ok 1\n";
 }
+
+unlink 'a';