From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 22 Apr 2012 06:25:33 +0000 (-0700)
Subject: pp_hot.c:pp_entersub: Rmv comment about setting PL_compcv
X-Git-Tag: upstream/5.20.0~6873
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=de290e1f6850f9240f165cc786940b0ff682718b;p=platform%2Fupstream%2Fperl.git

pp_hot.c:pp_entersub: Rmv comment about setting PL_compcv

PL_compcv is meant to point to the currently compiling sub, even dur-
ing an eval’s run time.  (See commit 676a678.)  Therefore, this com-
ment’s suggestion is incorrect.
---

diff --git a/pp_hot.c b/pp_hot.c
index 89165d9..d0cf006 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2685,11 +2685,6 @@ try_autoload:
 	PUSHSUB(cx);
 	cx->blk_sub.retop = PL_op->op_next;
 	CvDEPTH(cv)++;
-	/* XXX This would be a natural place to set C<PL_compcv = cv> so
-	 * that eval'' ops within this sub know the correct lexical space.
-	 * Owing the speed considerations, we choose instead to search for
-	 * the cv using find_runcv() when calling doeval().
-	 */
 	if (CvDEPTH(cv) >= 2) {
 	    PERL_STACK_OVERFLOW_CHECK();
 	    pad_push(padlist, CvDEPTH(cv));