projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
648f6eb
)
perl.c: Add missing ref count decrement
author
Karl Williamson
<public@khwilliamson.com>
Tue, 21 Jan 2014 23:59:39 +0000
(16:59 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Wed, 22 Jan 2014 18:46:00 +0000
(11:46 -0700)
This could have led to a leak.
perl.c
patch
|
blob
|
history
diff --git
a/perl.c
b/perl.c
index
495159e
..
eb7b954
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-1031,6
+1031,7
@@
perl_destruct(pTHXx)
SvREFCNT_dec(PL_utf8_tofold);
SvREFCNT_dec(PL_utf8_idstart);
SvREFCNT_dec(PL_utf8_idcont);
+ SvREFCNT_dec(PL_utf8_foldable);
SvREFCNT_dec(PL_utf8_foldclosures);
SvREFCNT_dec(PL_AboveLatin1);
SvREFCNT_dec(PL_UpperLatin1);