From: Vincent Pit <vince@profvince.com>
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);