Add braces around a condition block

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index ec3ecfef785efec4628b24c3fff9bc3356e042ec..c2036cce24e91c10f65fee5a780693e95f5cbcb0 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -1143,9 +1143,9 @@ static I32 su_init(pTHX_ void *ud, I32 cxix, I32 size) {
   * by the smallest multiple of SU_SAVE_PLACEHOLDER_SIZE greater or equal to
   * max(SU_SAVE_DESTRUCTOR_SIZE, size). */
 
- if (size <= SU_SAVE_DESTRUCTOR_SIZE)
+ if (size <= SU_SAVE_DESTRUCTOR_SIZE) {
   pad = 0;
- else {
+ } else {
   I32 extra = size - SU_SAVE_DESTRUCTOR_SIZE;
   pad = extra / SU_SAVE_PLACEHOLDER_SIZE;
   if (extra % SU_SAVE_PLACEHOLDER_SIZE)
@@ -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;
  }