From: Vincent Pit Date: Fri, 21 Sep 2012 14:08:15 +0000 (+0200) Subject: Remove an extra ; X-Git-Tag: v0.21~1 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=d7e92be8a8e33ea6f73de85783271c96603b4e6a;p=perl%2Fmodules%2FScope-Upper.git Remove an extra ; --- diff --git a/Upper.xs b/Upper.xs index a5111f2..7d75d5f 100644 --- a/Upper.xs +++ b/Upper.xs @@ -2572,7 +2572,7 @@ PPCODE: cx = cxstack + cxix; dbcx = cx; if (PL_DBsub && cxix && (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)) { - I32 i = su_context_skip_db(cxix - 1) + 1;; + I32 i = su_context_skip_db(cxix - 1) + 1; if (i < cxix && CxTYPE(cxstack + i) == CXt_SUB) cx = cxstack + i; }