This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #133981) fix my stupid mistake
authorTony Cook <tony@develop-help.com>
Thu, 5 Sep 2019 05:37:30 +0000 (15:37 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 5 Sep 2019 05:37:30 +0000 (15:37 +1000)
locale.c

index 0029c80..cdf125c 100644 (file)
--- 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__,