diff options
Diffstat (limited to 't/lib/warnings/doio')
| -rw-r--r-- | t/lib/warnings/doio | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/lib/warnings/doio b/t/lib/warnings/doio index 9ba4d31633..0db1a1315c 100644 --- a/t/lib/warnings/doio +++ b/t/lib/warnings/doio @@ -36,6 +36,8 @@ warn(warn_nl, "lstat"); [Perl_my_lstat] lstat "ab\ncd" + Use of -l on filehandle %s [Perl_my_lstat] + Can't exec \"%s\": %s [Perl_do_aexec5] Can't exec \"%s\": %s [Perl_do_exec3] @@ -154,6 +156,20 @@ EXPECT Unsuccessful stat on filename containing newline at - line 3. Unsuccessful stat on filename containing newline at - line 4. ######## +# doio.c [Perl_my_stat] +use warnings 'io'; +-l STDIN; +-l $fh; +open $fh, $0 or die "# $!"; +-l $fh; +no warnings 'io'; +-l STDIN; +-l $fh; +close $fh; +EXPECT +Use of -l on filehandle STDIN at - line 3. +Use of -l on filehandle $fh at - line 6. +######## # doio.c [Perl_do_aexec5] use warnings 'io' ; exec "lskdjfalksdjfdjfkls","" ; |