Fix locale handling in Solaris

Solaris setlocale(3C) returns composite locale prefixed by slash. For example
"/en_US.UTF-8/C/C/C/C/C". See man page. We must remove it or this
function will think that there is additional empty locale at the
beginning of the string and the number of detected locales will not
match expected LC_ALL_INDEX_.

Author: vlmarek

AUTHORS

@@ -1439,6 +1439,7 @@ Vlad Harchev                   <[email protected]>
 Vladimir Alexiev               <[email protected]>
 Vladimir Marek                 <[email protected]>
 Vladimir Timofeev              <[email protected]>
+Vladimír Marek                 <[email protected]>
 Volker Schatz                  <[email protected]>
 vsfos                          <[email protected]>
 W. Geoffrey Rommel             <[email protected]>

locale.c

@@ -1313,6 +1313,16 @@ S_parse_LC_ALL_string(pTHX_ const char * string,
 
     Size_t index;           /* Our internal index for the current category */
     const char * s = string;
+
+    /* Solaris setlocale(3C) returns composite locale prefixed by slash. For example
+     * "/en_US.UTF-8/C/C/C/C/C". See man page. We must remove it or this
+     * function will think that there is additional empty locale at the
+     * beginning of the string and the number of detected locales will not
+     * match expected LC_ALL_INDEX_. */
+    if (strnEQ(s, separator, separator_len)) {
+        s += separator_len;
+    }
+
     const char * e = s + strlen(string);
     const char * category_end = NULL;
     const char * saved_first = NULL;