[inseparable changes from patch from perl5.003_15 to perl5.003_16]

[p5sagit/p5-mst-13.2.git] / t / io / read.t

diff --git a/t/io/read.t b/t/io/read.t
old mode 100644 (file)
new mode 100755 (executable)
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';