From: Vincent Pit Date: Sat, 17 Jan 2009 10:59:19 +0000 (+0100) Subject: Minor spacing fix X-Git-Tag: v0.07~14 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=50e87b60e467777de871b8b0cf46b056156959e8 Minor spacing fix --- diff --git a/Upper.xs b/Upper.xs index cd093de..f9fa17b 100644 --- a/Upper.xs +++ b/Upper.xs @@ -629,11 +629,11 @@ STATIC void su_unwind(pTHX_ void *ud_) { if (CxTYPE(cx) == CXt_BLOCK && (C) >= i) { \ --cx; \ if (CxTYPE(cx) == CXt_SUB && cx->blk_sub.cv == GvCV(PL_DBsub)) { \ - (C) -= i + 1; \ - break; \ - } \ - } else \ - break; \ + (C) -= i + 1; \ + break; \ + } \ + } else \ + break; \ } while (++i <= SU_SKIP_DB_MAX); \ } STMT_END