diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-19 20:07:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-19 20:07:02 +0000 |
| commit | aaac28e4e153dff2cc0d47833ed9ac70e0bac636 (patch) | |
| tree | c1e26ae999b1c2062a3c93fc60653d7a749c7b86 /t/io/open.t | |
| parent | 35066d42e36f71d632908552650c0035ec450cdb (diff) | |
| download | perl-aaac28e4e153dff2cc0d47833ed9ac70e0bac636.tar.gz | |
Disable warning noise
p4raw-id: //depot/perl@16009
Diffstat (limited to 't/io/open.t')
| -rwxr-xr-x | t/io/open.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/io/open.t b/t/io/open.t index a24a5472d7..187106156f 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' ); } |