X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;h=91c487b1f8c2540d1174c1772adff260a6191bb1;hp=27397091936b248267348e9bbe075f900311671f;hb=153930f0ce4008b90e45fd4ba72fea446b8eede9;hpb=68a5aefb3004e65311710b45280e4ec453aa540e

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) {