Fix a small leak of hints objects

diff --git a/indirect.xs b/indirect.xs
index eb6f01f704787ba4785c0b7b1760895aa750972e..f318932cc8adc8bfa3d7a07e2315813ceb1660e1 100644 (file)
--- 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_