op.c:newPROG: Remove questionable comment
authorFather Chrysostomos <sprout@cpan.org>
Wed, 13 Jun 2012 20:58:13 +0000 (13:58 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 15 Jun 2012 19:28:16 +0000 (12:28 -0700)
This thing about PL_eval_root going through an expensive function call
had already ceased to be the case before commit 5983a79d, which added
it.  And I think it was only ever valid for non-core code.

op.c

diff --git a/op.c b/op.c
index 170a0be..01b871d 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2827,9 +2827,6 @@ Perl_newPROG(pTHX_ OP *o)
        else
            scalar(PL_eval_root);
 
-       /* don't use LINKLIST, since PL_eval_root might indirect through
-        * a rather expensive function call and LINKLIST evaluates its
-        * argument more than once */
        PL_eval_start = op_linklist(PL_eval_root);
        PL_eval_root->op_private |= OPpREFCOUNTED;
        OpREFCNT_set(PL_eval_root, 1);