locale.c: Fix memory leak

PL_C_locale_obj is a global variable, and should be allocated just once
per program.  Prior to this commit it could leak under MULTIPLICITY.

I was unable to get LSAN to notice this leak.  Tony Cook pointed out
that implementations are likely to use a single static object for this
extremely common scenario.  So no leak occurs.  Thus this commit only
fixes leaks on implementations using a different method, but does no
harm on the ones that use the static one.

1 files changed, 3 insertions, 1 deletions

diff --git a/locale.c b/locale.c
index b68f8ec6ed..3ff2642be6 100644
--- a/locale.c
+++ b/locale.c
@@ -4827,7 +4827,9 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
 #  endif
 #  ifdef USE_POSIX_2008_LOCALE
 
-    PL_C_locale_obj = newlocale(LC_ALL_MASK, "C", (locale_t) 0);
+    if (! PL_C_locale_obj) {
+        PL_C_locale_obj = newlocale(LC_ALL_MASK, "C", (locale_t) 0);
+    }
     if (! PL_C_locale_obj) {
         locale_panic_(Perl_form(aTHX_
                                 "Cannot create POSIX 2008 C locale object"));