X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;h=3ba3348b7edc058e80ca3314acbfd7698c8c59c2;hp=ec3ecfef785efec4628b24c3fff9bc3356e042ec;hb=44a4cbe3d261efdc74b24dc6ea56922c9b57096d;hpb=9896bce7b63667d13e00791014f63e7ce9838243

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;
  }