S_bool_setlocale_2008_i: Check for failure return

Previously, this would forge ahead; looking at the code it seems it would fail later on anyway, but it is best to check and fail immediately.
Perl · Apr 23, 2023 · 6e36df6 · 6e36df6
1 parent 90560b2
commit 6e36df6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -1858,6 +1858,10 @@ S_bool_setlocale_2008_i(pTHX_
      * happens with setting a locale to "" */
     if (strEQ(new_locale, "")) {
         new_locale = find_locale_from_environment(index);
+        if (! new_locale) {
+            SET_EINVAL;
+            return false;
+        }
     }
 
 #  endif