From: Vincent Pit Date: Thu, 20 Sep 2012 19:38:41 +0000 (+0200) Subject: Fix context_info() warnings field for perl 5.17.4 X-Git-Tag: v0.21~4 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a5315939c4f295e3e6b70b3b6033068a8be67ce6;p=perl%2Fmodules%2FScope-Upper.git Fix context_info() warnings field for perl 5.17.4 --- diff --git a/Upper.xs b/Upper.xs index 308bb7c..a5111f2 100644 --- a/Upper.xs +++ b/Upper.xs @@ -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);