X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=46dc5931efb657df2f86da4ca689cb5e48ed4ffa;hb=a8bfcf74928f0ce252e40b657f3ad61c44ce43d7;hp=7d75d5fd944c37ba94b6c7ed3b15e2b34f85cb58;hpb=d7e92be8a8e33ea6f73de85783271c96603b4e6a;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 7d75d5f..46dc593 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -2680,12 +2680,14 @@ context_info_warnings_off:
   } else if (old_warnings == pWARN_ALL) {
    HV *bits;
 context_info_warnings_on:
+#if SU_HAS_PERL(5, 8, 7)
    bits = get_hv("warnings::Bits", 0);
    if (bits) {
     SV **bits_all = hv_fetchs(bits, "all", FALSE);
     if (bits_all)
      mask = sv_mortalcopy(*bits_all);
    }
+#endif
    if (!mask)
     mask = su_newmortal_pvn(WARN_ALLstring, WARNsize);
   } else {