X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=7d75d5fd944c37ba94b6c7ed3b15e2b34f85cb58;hb=832f6a4eae21bec85e1cb1043fbc41fcf59cbfcd;hp=308bb7c0dcfffe949b1ead9ca2baed8e5e029a64;hpb=59cd3cf482c2e582db5f5d41ff4730069bdea583;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 308bb7c..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;
  }
@@ -2669,7 +2669,11 @@ PPCODE:
    if (PL_dowarn & G_WARN_ON)
     goto context_info_warnings_on;
    else
+#if SU_HAS_PERL(5, 17, 4)
+    mask = &PL_sv_undef;
+#else
     goto context_info_warnings_off;
+#endif
   } else if (old_warnings == pWARN_NONE) {
 context_info_warnings_off:
    mask = su_newmortal_pvn(WARN_NONEstring, WARNsize);