summaryrefslogtreecommitdiff
path: root/t/lib
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-12-30 17:14:15 +0000
committerNicholas Clark <nick@ccl4.org>2010-12-30 17:14:15 +0000
commitdc8c4646c510896ec1292648fdb11164f9bb831f (patch)
tree9bc1b907a149625507d8057b779989cd40d0ee23 /t/lib
parentc521cf7c8af1697e5efd8ce3ad75ed00606db13b (diff)
downloadperl-dc8c4646c510896ec1292648fdb11164f9bb831f.tar.gz
Convert a pp_sys test to use warnings 'closed', instead of the broader 'io'.
It's actually only testing warnings enabled by 'closed', so test using the tighter category.
Diffstat (limited to 't/lib')
-rw-r--r--t/lib/warnings/pp_sys4
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys
index 62e47c160f..b2783062b8 100644
--- a/t/lib/warnings/pp_sys
+++ b/t/lib/warnings/pp_sys
@@ -291,7 +291,7 @@ flock() on unopened filehandle FOO at - line 19.
flock() on unopened filehandle at - line 20.
########
# pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
-use warnings 'io' ;
+use warnings 'closed';
use Config;
BEGIN {
if ( $^O ne 'VMS' and ! $Config{d_socket}) {
@@ -333,7 +333,7 @@ getsockopt STDIN, 1,2;
getsockname STDIN;
getpeername STDIN;
closedir STDIN;
-no warnings 'io' ;
+no warnings 'closed';
send STDIN, "fred", 1;
bind STDIN, "fred" ;
connect STDIN, "fred" ;