1 files changed, 2 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 2a3931e642..c63e263e7d 100644
--- a/perl.c
+++ b/perl.c
@@ -1160,6 +1160,8 @@ perl_destruct(pTHXx)
     PL_numeric_name = NULL;
     SvREFCNT_dec(PL_numeric_radix_sv);
     PL_numeric_radix_sv = NULL;
+    SvREFCNT_dec(PL_underlying_radix_sv);
+    PL_underlying_radix_sv  = NULL;
 #endif
 #ifdef USE_LOCALE_CTYPE
     Safefree(PL_ctype_name);