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

diff --git a/t/io/read.t b/t/io/read.t
index 16d32b1..b27fde1 100755
--- 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';