|
Lines 5283-5293
Perl_init_i18nl10n(pTHX_ int printwarn)
Link Here
|
| 5283 |
DEBUG_Lv(PerlIO_printf(Perl_debug_log, "created C object %p\n", |
5283 |
DEBUG_Lv(PerlIO_printf(Perl_debug_log, "created C object %p\n", |
| 5284 |
PL_C_locale_obj)); |
5284 |
PL_C_locale_obj)); |
| 5285 |
|
5285 |
|
| 5286 |
/* Switch to using the POSIX 2008 interface now. This would happen below |
|
|
| 5287 |
* anyway, but deferring it can lead to leaks of memory that would also get |
| 5288 |
* malloc'd in the interim */ |
| 5289 |
uselocale(PL_C_locale_obj); |
| 5290 |
|
| 5291 |
# ifdef USE_LOCALE_NUMERIC |
5286 |
# ifdef USE_LOCALE_NUMERIC |
| 5292 |
|
5287 |
|
| 5293 |
PL_underlying_numeric_obj = duplocale(PL_C_locale_obj); |
5288 |
PL_underlying_numeric_obj = duplocale(PL_C_locale_obj); |
