]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Update the comment about the "call_sv() during LEAVE" workaround
authorVincent Pit <vince@profvince.com>
Sun, 17 May 2009 20:11:17 +0000 (22:11 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 17 May 2009 20:11:17 +0000 (22:11 +0200)
Upper.xs

index af2a1d4b27c4f03214090af4bf039fc4b11602e9..fa117d97ba7de9090a12afb407df657f15e239ca 100644 (file)
--- 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) {