Add appropriate skips to t/io/fs.t to fix test failures on Cygwin.

[perl5.git] / t / io / read.t

diff --git a/t/io/read.t b/t/io/read.t
index 63ffee1..6d590ff 100755 (executable)
--- 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);
 }