see if this helps

Author: khwilliamson

locale.c

@@ -843,7 +843,16 @@ S_my_querylocale_i(pTHX_ const unsigned int index)
         /* But we do have up-to-date values when we keep our own records
          * (except some times in initialization, where we get the value from
          * the system. */
-        if (PL_curlocales[index] == NULL) {
+        if (index == LC_ALL_INDEX_) {
+            if (PL_cur_LC_ALL == NULL) {
+                retval = stdized_setlocale(LC_ALL, NULL);
+                PL_cur_LC_ALL = savepv(retval);
+            }
+            else {
+                retval = PL_cur_LC_ALL;
+            }
+        }
+        else if (PL_curlocales[index] == NULL) {
             retval = stdized_setlocale(category, NULL);
             PL_curlocales[index] = savepv(retval);
         }