Disable warning noise

p4raw-id: //depot/perl@16009

diff --git a/t/io/open.t b/t/io/open.t
index a24a547..1871061 100755 (executable)
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -228,6 +228,7 @@ SKIP: {
     skip "This perl uses perlio", 1 if $Config{useperlio};
     skip "This system doesn't understand EINVAL", 1 unless exists $!{EINVAL};
 
+    no warnings 'io';
     ok( !open(F,'>',\my $s) && $!{EINVAL}, 'open(reference) raises EINVAL' );
 }