X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;h=c311bf2a14d5eeaad40ed23ebe383961a02e6af8;hp=fcd40126e6bf50dd23f4bf767890f73261cee6de;hb=3dd049db64b7cecb2f4f12fb0a6f4043155429ee;hpb=3ed637b3a0364a6ab60d5f86801686c7d002786e

diff --git a/Upper.xs b/Upper.xs
index fcd4012..c311bf2 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -2707,7 +2707,9 @@ PPCODE:
     goto context_info_warnings_off;
 #endif
   } else if (old_warnings == pWARN_NONE) {
+#if !SU_HAS_PERL(5, 17, 4)
 context_info_warnings_off:
+#endif
    mask = su_newmortal_pvn(WARN_NONEstring, WARNsize);
   } else if (old_warnings == pWARN_ALL) {
    HV *bits;