From: Vincent Pit <vince@profvince.com>
Date: Tue, 18 Aug 2015 13:05:29 +0000 (-0300)
Subject: Add a comment in the initializing loop in su_init()
X-Git-Tag: v0.28~5
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=44a4cbe3d261efdc74b24dc6ea56922c9b57096d;p=perl%2Fmodules%2FScope-Upper.git

Add a comment in the initializing loop in su_init()
---

diff --git a/Upper.xs b/Upper.xs
index ec3ecfe..3ba3348 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1174,6 +1174,7 @@ static I32 su_init(pTHX_ void *ud, I32 cxix, I32 size) {
  PL_scopestack[base] += size;
  for (i = 1; i < depth; ++i) {
   I32 j = i + base;
+  /* origin[depth - i] == PL_scopestack[PL_scopestack_ix - i] */
   origin[i] = PL_scopestack[j];
   PL_scopestack[j] += offset;
  }