X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d98d5fffa337682ca6cac752b32ff55e863a53a0..fd3835b3e90ede5576a7ad392beef86bf933ce15:/op.c?ds=inline

diff --git a/op.c b/op.c
index f22a5d2..d5af3c9 100644
--- a/op.c
+++ b/op.c
@@ -4306,7 +4306,7 @@ newAVREF(OP *o)
 OP *
 newGVREF(I32 type, OP *o)
 {
-    if (type == OP_MAPSTART)
+    if (type == OP_MAPSTART || type == OP_GREPSTART)
 	return newUNOP(OP_NULL, 0, o);
     return ref(newUNOP(OP_RV2GV, OPf_REF, o), type);
 }