In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/17a1e9ac2917a0f8cdb3bf899724e07190e3d8ec?hp=abd18c6d4b8db069c925249b1e0ee82681405e32>
- Log -----------------------------------------------------------------
commit 17a1e9ac2917a0f8cdb3bf899724e07190e3d8ec
Author: Tony Cook <t...@develop-help.com>
Date: Thu Sep 5 15:37:30 2019 +1000
(perl #133981) fix my stupid mistake
-----------------------------------------------------------------------
Summary of changes:
locale.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/locale.c b/locale.c
index 0029c8023a..cdf125cee5 100644
--- a/locale.c
+++ b/locale.c
@@ -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__,
--
Perl5 Master Repository
