X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=fa117d97ba7de9090a12afb407df657f15e239ca;hb=9a6590fbb072d58c2d9ac134f96c5b32393ded70;hp=af2a1d4b27c4f03214090af4bf039fc4b11602e9;hpb=b4aa0b7a7278dd43b0d06dddb6ebacbd0c7b15ea;p=perl%2Fmodules%2FScope-Upper.git

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) {