From 0501f9a893af768799929931d0694d4acc881010 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 5 Jan 2012 15:17:18 -0700 Subject: [PATCH] regcomp.c: Avoid leaking a scalar --- regcomp.c | 1 + 1 file changed, 1 insertion(+) diff --git a/regcomp.c b/regcomp.c index 2d6bb7f..7dcd20e 100644 --- a/regcomp.c +++ b/regcomp.c @@ -10725,6 +10725,7 @@ parseit: if (! PL_utf8_foldable) { SV* swash = swash_init("utf8", "Cased", &PL_sv_undef, 1, 0); PL_utf8_foldable = _swash_to_invlist(swash); + SvREFCNT_dec(swash); } /* This is a hash that for a particular fold gives all characters -- 2.7.4