From: Vincent Pit <vince@profvince.com>
Date: Sun, 8 Feb 2009 23:44:08 +0000 (+0100)
Subject: Add compatibility macro for SvPV_const
X-Git-Tag: v0.30~11
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=62f99fdfd379e0be431040ba68cd90f0683701d0;p=perl%2Fmodules%2FVariable-Magic.git

Add compatibility macro for SvPV_const
---

diff --git a/Magic.xs b/Magic.xs
index aeea182..41bf22d 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -101,6 +101,10 @@ STATIC SV *vmg_clone(pTHX_ SV *sv, tTHX owner) {
 # define mPUSHu(U) PUSHs(sv_2mortal(newSVuv(U)))
 #endif
 
+#ifndef SvPV_const
+# define SvPV_const SvPV
+#endif
+
 #ifndef PERL_MAGIC_ext
 # define PERL_MAGIC_ext '~'
 #endif