1 files changed, 2 insertions, 0 deletions
diff --git a/op.c b/op.c
index 2776dda6ea..2d25fb3522 100644
--- a/op.c
+++ b/op.c
@@ -3880,6 +3880,8 @@ OP *op;
 						newGVOP(OP_GV, 0, gv)))));
 	return ck_subr(op);
     }
+    if ((op->op_flags & OPf_KIDS) && !cLISTOP->op_first->op_sibling)
+	append_elem(OP_GLOB, op, newSVREF(newGVOP(OP_GV, 0, defgv)));
     gv = newGVgen("main");
     gv_IOadd(gv);
     append_elem(OP_GLOB, op, newGVOP(OP_GV, 0, gv));