1 files changed, 4 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 1de61eeb5c..873c27b6f7 100644
--- a/perl.c
+++ b/perl.c
@@ -1122,6 +1122,10 @@ perl_destruct(pTHXx)
             freelocale(old_locale);
         }
     }
+    if (PL_scratch_locale_obj) {
+        freelocale(PL_scratch_locale_obj);
+        PL_scratch_locale_obj = NULL;
+    }
 #  ifdef USE_LOCALE_NUMERIC
     if (PL_underlying_numeric_obj) {
         DEBUG_Lv(PerlIO_printf(Perl_debug_log,