X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=indirect.xs;h=a9012cdf062582057bbc6e80a72fc83cfc4b6116;hb=9e7e0702d84f54976fa798516817f55e342fe0be;hp=6909bf44a1055576a801bb577befa800afed28a8;hpb=c6c476d4e2dc387c3e89301b087da67251ae2e05;p=perl%2Fmodules%2Findirect.git diff --git a/indirect.xs b/indirect.xs index 6909bf4..a9012cd 100644 --- a/indirect.xs +++ b/indirect.xs @@ -29,7 +29,7 @@ STATIC UV indirect_hint(pTHX) { "indirect", 8, 0, indirect_hash); - return SvOK(id) ? SvUV(id) : 0; + return SvIOK(id) ? SvUV(id) : 0; } /* ... op -> source position ............................................... */ @@ -58,6 +58,8 @@ STATIC void indirect_map_store(pTHX_ const OP *o, const char *src, SV *sv) { val = newSVsv(sv); SvUPGRADE(val, SVt_PVIV); SvUVX(val) = PTR2UV(src); + SvIOK_on(val); + SvIsUV_on(val); if (!hv_store(indirect_map, buf, sprintf(buf, "%u", PTR2UV(o)), val, 0)) SvREFCNT_dec(val); }