From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 19 Apr 2002 20:07:02 +0000 (+0000)
Subject: Disable warning noise
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aaac28e4e153dff2cc0d47833ed9ac70e0bac636;p=p5sagit%2Fp5-mst-13.2.git

Disable warning noise

p4raw-id: //depot/perl@16009
---

diff --git a/t/io/open.t b/t/io/open.t
index a24a547..1871061 100755
--- 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' );
 }