X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=fa09ec197eaaf5f4adda03367ff45c0bc47582c8;hb=de17a4857e738f4474bea721e6064f1b52273f6d;hp=cc403646a401293a8f473da988ab4f6453ee2229;hpb=923f7b96a7f82df81b2a7253d608c4ad781f3e7e;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/Magic.xs b/Magic.xs index cc40364..fa09ec1 100644 --- a/Magic.xs +++ b/Magic.xs @@ -1022,7 +1022,7 @@ STATIC U32 vmg_svt_len(pTHX_ SV *sv, MAGIC *mg) { svr = POPs; ret = SvOK(svr) ? (U32) SvUV(svr) : len; if (t == SVt_PVAV) - --ret; + --ret; PUTBACK; FREETMPS;