perl.c: Add missing ref count decrement

This could have led to a leak.

1 files changed, 1 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 495159ea10..eb7b95403e 100644
--- 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);