From: Vincent Pit Date: Mon, 28 Dec 2009 23:01:25 +0000 (+0100) Subject: SvPV_const is only available since 5.9.3 X-Git-Tag: v0.40~5 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=5deff576590928e025a96ff362aa7abac1cc33aa;p=perl%2Fmodules%2FVariable-Magic.git SvPV_const is only available since 5.9.3 --- diff --git a/Magic.xs b/Magic.xs index 9da0b25..120287f 100644 --- a/Magic.xs +++ b/Magic.xs @@ -987,7 +987,7 @@ STATIC U32 vmg_svt_len(pTHX_ SV *sv, MAGIC *mg) { PUSHs(mg->mg_obj ? mg->mg_obj : &PL_sv_undef); if (t < SVt_PVAV) { STRLEN l; -#if VMG_HAS_PERL(5, 9, 2) +#if VMG_HAS_PERL(5, 9, 3) const U8 *s = SvPV_const(sv, l); #else U8 *s = SvPV(sv, l);