X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=251fc3c75f4fcbc34f4ae470768864bb807caf86;hb=60b96f4d5dcee8c38e8b8c8db36dae2d7d693350;hp=70b26173e11b3f9b128967cc9489cd746c6cd4fc;hpb=c82a0127ec7ea6da80e943d0bf32bcf4052f429c;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 70b2617..251fc3c 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1005,7 +1005,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;
-  U8 *s = (U8 *) SvPV_const(sv, l);
+  const U8 *s = (const U8 *) SvPV_const(sv, l);
   if (DO_UTF8(sv))
    len = utf8_length(s, s + l);
   else