diff --git a/AUTHORS b/AUTHORS
index 9589f8c3d262..6b244913fa18 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1439,6 +1439,7 @@ Vlad Harchev                   <hvv@hippo.ru>
 Vladimir Alexiev               <vladimir@cs.ualberta.ca>
 Vladimir Marek                 <vlmarek@volny.cz>
 Vladimir Timofeev              <vovkasm@gmail.com>
+Vladimír Marek                 <vlmarek13@gmail.com>
 Volker Schatz                  <perldoc@volkerschatz.com>
 vsfos                          <vsfos@foxmail.com>
 W. Geoffrey Rommel             <grommel@sears.com>
diff --git a/locale.c b/locale.c
index 4a2ac89490f6..9376e2ed81b0 100644
--- a/locale.c
+++ b/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;