More core test cleanups. Mainly fixes to remove code that caused

warnings, but there were a few bug fixes that were hidden by 
no using warnings.

p4raw-id: //depot/perl@25973

1 files changed, 1 insertions, 0 deletions

diff --git a/t/io/read.t b/t/io/read.t
index 63ffee1d5a..6d590ff688 100755
--- a/t/io/read.t
+++ b/t/io/read.t
@@ -35,6 +35,7 @@ SKIP: {
     skip "no EBADF", 1 if (!exists &Errno::EBADF);
 
     $! = 0;
+    no warnings 'unopened';
     read(B,$b,1);
     ok($! == &Errno::EBADF);
 }