SvPV_const is only available since 5.9.3

[perl/modules/Variable-Magic.git] / Magic.xs

diff --git a/Magic.xs b/Magic.xs
index 9da0b256a39cfdd5f42b20b1fb7301440f2290e5..120287f14cc4f8bfe9c5ea3ec210382ff5f950de 100644 (file)
--- 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);