Add compatibility macro for SvPV_const

diff --git a/Magic.xs b/Magic.xs
index aeea182bc94ce8c9db4be1a9ed98c1c15ce9c968..41bf22dcd5068d655e6a3ba0d7139b64b39b9d17 100644 (file)
--- 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