From: Vincent Pit <vince@profvince.com>
Date: Mon, 11 Aug 2008 15:41:46 +0000 (+0200)
Subject: Force UOK flag onto op->src values
X-Git-Tag: v0.02~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=9e7e0702d84f54976fa798516817f55e342fe0be

Force UOK flag onto op->src values
---

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);
 }