From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=d7e92be8a8e33ea6f73de85783271c96603b4e6a

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