From bbae2b23b3ff14ae001b0b2b0ba757540aaae4b8 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 10 Aug 2022 18:05:44 -0600 Subject: perl.c: Rm redundant initialization of PL_C_locale_obj This is also initialized in locale.c Spotted by Tony Cook. --- perl.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'perl.c') 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); } -- cgit v1.2.1