This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove target from REGCOMP op
authorDavid Mitchell <davem@iabyn.com>
Wed, 9 Nov 2011 14:38:26 +0000 (14:38 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:25:52 +0000 (13:25 +0100)
after the previous commit, the target is no longer needed;
so don't allocate it.

op.c

diff --git a/op.c b/op.c
index 44fc40b..ab08830 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4522,8 +4522,6 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg, I32 floor)
                            | (reglist ? OPf_STACKED : 0);
        rcop->op_private = 0;
        rcop->op_other = o;
-       if (reglist)
-           rcop->op_targ = pad_alloc(rcop->op_type, SVs_PADTMP);
 
        /* /$x/ may cause an eval, since $x might be qr/(?{..})/  */
        if (PL_hints & HINT_RE_EVAL) PL_cv_has_eval = 1;