From: Vincent Pit 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/?a=commitdiff_plain;h=fd1f4aa0e63bb64a51cb89c22cdf24027f82f5f9;p=perl%2Fmodules%2Findirect.git 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_