From: Vincent Pit <vince@profvince.com>
Date: Thu, 28 May 2009 22:48:07 +0000 (+0200)
Subject: Fix a small leak of hints objects
X-Git-Tag: v0.14~4
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=fd1f4aa0e63bb64a51cb89c22cdf24027f82f5f9

Fix a small leak of hints objects
---

diff --git a/indirect.xs b/indirect.xs
index eb6f01f..f318932 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -134,12 +134,8 @@ typedef struct {
 
 #define PTABLE_NAME ptable_hints
 
-#if I_WORKAROUND_REQUIRE_PROPAGATION
-# define PTABLE_VAL_FREE(V) \
+#define PTABLE_VAL_FREE(V) \
    { indirect_hint_t *h = (V); SvREFCNT_dec(h->code); PerlMemShared_free(h); }
-#else
-# define PTABLE_VAL_FREE(V) SvREFCNT_dec(V)
-#endif
 
 #define pPTBL  pTHX
 #define pPTBL_ pTHX_