Apply defined-or patch for 5.8.x-dortux/5.8-dor

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 {}