diff options
author | Tony Cook <tony@develop-help.com> | 2019-09-05 15:37:30 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-09-05 15:37:30 +1000 |
commit | 17a1e9ac2917a0f8cdb3bf899724e07190e3d8ec (patch) | |
tree | 4180073f79064c1a6582003cdbf7574caba0d20c /locale.c | |
parent | abd18c6d4b8db069c925249b1e0ee82681405e32 (diff) | |
download | perl-17a1e9ac2917a0f8cdb3bf899724e07190e3d8ec.tar.gz |
(perl #133981) fix my stupid mistake
Diffstat (limited to 'locale.c')
-rw-r--r-- | locale.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2218,9 +2218,9 @@ S_win32_setlocale(pTHX_ int category, const char* locale) result = PerlEnv_getenv(category_names[i]); if (result && strNE(result, "")) { #ifdef USE_WSETLOCALE - S_wrap_wsetlocale(aTHX_ categories[i], locale); + S_wrap_wsetlocale(aTHX_ categories[i], result); #else - setlocale(categories[i], locale); + setlocale(categories[i], result); #endif DEBUG_Lv(PerlIO_printf(Perl_debug_log, "%s:%d: %s\n", __FILE__, __LINE__, |