Silence an "unused label" compiler warning

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index fcd40126e6bf50dd23f4bf767890f73261cee6de..c311bf2a14d5eeaad40ed23ebe383961a02e6af8 100644 (file)
--- 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;