From: Vincent Pit <vince@profvince.com>
Date: Sun, 17 May 2009 20:11:17 +0000 (+0200)
Subject: Update the comment about the "call_sv() during LEAVE" workaround
X-Git-Tag: v0.09~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=9a6590fbb072d58c2d9ac134f96c5b32393ded70;p=perl%2Fmodules%2FScope-Upper.git

Update the comment about the "call_sv() during LEAVE" workaround
---

diff --git a/Upper.xs b/Upper.xs
index af2a1d4..fa117d9 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -293,8 +293,8 @@ STATIC void su_call(pTHX_ void *ud_) {
  PUSHMARK(SP);
  PUTBACK;
 
- /* If cxstack_ix isn't incremented there, the eval context will be overwritten
-  * when the new sub scope will be created in call_sv. */
+ /* If the recently popped context isn't saved there, it will be overwritten by
+  * the sub scope from call_sv, although it's still needed in our caller. */
 
 #if SU_HAS_PERL(5, 9, 5)
  if (dieing) {