X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=00622a5c10f5b2d5b3488ed2ca40f8b600dfdffe;hp=8f673e12d1cb9bc6a2e7365a3bc35238eae7e0f4;hb=c07766a234204d78a80b6d75534e03ae3465b6f3;hpb=28c424672aa75950b69186b3a7bee3f93b4a580a

diff --git a/indirect.xs b/indirect.xs
index 8f673e1..00622a5 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -302,10 +302,10 @@ STATIC SV *indirect_tag(pTHX_ SV *value) {
 
  /* We only need for the key to be an unique tag for looking up the value later.
   * Allocated memory provides convenient unique identifiers, so that's why we
-  * use the value pointer as the key itself. */
- ptable_hints_store(MY_CXT.tbl, value, h);
+  * use the hint as the key itself. */
+ ptable_hints_store(MY_CXT.tbl, h, h);
 
- return newSViv(PTR2IV(value));
+ return newSViv(PTR2IV(h));
 }
 
 STATIC SV *indirect_detag(pTHX_ const SV *hint) {