diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-12-30 17:14:15 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-12-30 17:14:15 +0000 |
commit | dc8c4646c510896ec1292648fdb11164f9bb831f (patch) | |
tree | 9bc1b907a149625507d8057b779989cd40d0ee23 /t/lib | |
parent | c521cf7c8af1697e5efd8ce3ad75ed00606db13b (diff) | |
download | perl-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_sys | 4 |
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" ; |