diff options
Diffstat (limited to 't/lib/warnings/op')
-rw-r--r-- | t/lib/warnings/op | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index cc9be27cd1..69b36b0d67 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -682,6 +682,18 @@ EXPECT Value of readdir() operator can be "0"; test with defined() at - line 4. ######## # op.c +use warnings 'misc'; +open FH, "<abc"; +$_ = <FH> err $_ = 1; +($_ = <FH>) // ($_ = 1); +opendir DH, "."; +$_ = readdir DH err $_ = 1; +$_ = <*> err $_ = 1; +%a = (1,2,3,4) ; +$_ = each %a err $_ = 1; +EXPECT +######## +# op.c use warnings 'redefine' ; sub fred {} sub fred {} |