1 files changed, 0 insertions, 26 deletions
diff --git a/contrib/perl5/t/io/read.t b/contrib/perl5/t/io/read.t
deleted file mode 100755
index b27fde1..0000000
--- a/contrib/perl5/t/io/read.t
+++ /dev/null
@@ -1,26 +0,0 @@
-#!./perl
-
-# $RCSfile$
-
-print "1..1\n";
-
-open(A,"+>a");
-print A "_";
-seek(A,0,0);
-
-$b = "abcd"; 
-$b = "";
-
-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';