From: Vincent Pit <vince@profvince.com>
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) {