]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
SvPV_const is only available since 5.9.3
authorVincent Pit <vince@profvince.com>
Mon, 28 Dec 2009 23:01:25 +0000 (00:01 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 28 Dec 2009 23:01:25 +0000 (00:01 +0100)
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);