This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
buigid #24905 - the code planted to call glob() retained an
[perl5.git] / op.c
diff --git a/op.c b/op.c
index e0d7f54..b39d81e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5332,6 +5332,7 @@ Perl_ck_glob(pTHX_ OP *o)
        o->op_ppaddr = PL_ppaddr[OP_LIST];
        cLISTOPo->op_first->op_type = OP_PUSHMARK;
        cLISTOPo->op_first->op_ppaddr = PL_ppaddr[OP_PUSHMARK];
+       cLISTOPo->op_first->op_targ = 0;
        o = newUNOP(OP_ENTERSUB, OPf_STACKED,
                    append_elem(OP_LIST, o,
                                scalar(newUNOP(OP_RV2CV, 0,