perl.c: Add missing ref count decrement

This could have led to a leak.

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