perl.c: Rm redundant initialization of PL_C_locale_obj

This is also initialized in locale.c

Spotted by Tony Cook.

1 files changed, 0 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index 86b83ca403..f7933aadeb 100644
--- a/perl.c
+++ b/perl.c
@@ -462,10 +462,6 @@ perl_construct(pTHXx)
     /* Start with 1 bucket, for DFS.  It's unlikely we'll need more.  */
     HvMAX(PL_registered_mros) = 0;
 
-#ifdef USE_POSIX_2008_LOCALE
-    PL_C_locale_obj = newlocale(LC_ALL_MASK, "C", NULL);
-#endif
-
     ENTER;
     init_i18nl10n(1);
 }