From: Vincent Pit Date: Thu, 19 Mar 2015 13:52:58 +0000 (-0300) Subject: Fix a memory leak with the uid() feature X-Git-Tag: v0.27~19 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=153930f0ce4008b90e45fd4ba72fea446b8eede9;p=perl%2Fmodules%2FScope-Upper.git Fix a memory leak with the uid() feature The user data token was never freed. --- diff --git a/Upper.xs b/Upper.xs index 2739709..91c487b 100644 --- a/Upper.xs +++ b/Upper.xs @@ -1955,6 +1955,8 @@ STATIC void su_uid_bump(pTHX_ void *ud_) { su_ud_reap *ud = ud_; SAVEDESTRUCTOR_X(su_uid_drop, ud->cb); + + SU_UD_FREE(ud); } STATIC SV *su_uid_get(pTHX_ I32 cxix) {