regularise "given"

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 8a185a1..23f25db 100644 (file)
--- a/op.c
+++ b/op.c
@@ -8952,11 +8952,7 @@ Perl_newGIVENOP(pTHX_ OP *cond, OP *block, PADOFFSET defsv_off)
     PERL_UNUSED_ARG(defsv_off);
 
     assert(!defsv_off);
     PERL_UNUSED_ARG(defsv_off);
 
     assert(!defsv_off);

-    return newGIVWHENOP(
-       ref_array_or_hash(cond),
-       block,
-       OP_ENTERGIVEN, OP_LEAVEGIVEN,
-       0);
+    return newGIVWHENOP(cond, block, OP_ENTERGIVEN, OP_LEAVEGIVEN, 0);

 }
 
 /*
 }
 
 /*