From 5e1ea6e51e331694aeaed6ca1ceca4afd237f8f3 Mon Sep 17 00:00:00 2001
From: Steven Elliott <elliotsl@mindspring.com>
Date: Fri, 25 Feb 2000 21:39:38 +0000
Subject: [PATCH] Stubbed out the implementation of LCMAP_SORTKEY in
 LCMapStringW() in order to allow Windows 9x Perl to start.

---
 ole/ole2nls.c | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/ole/ole2nls.c b/ole/ole2nls.c
index bb6147bd40e..2535839bc62 100644
--- a/ole/ole2nls.c
+++ b/ole/ole2nls.c
@@ -201,6 +201,10 @@ LANG_BEGIN (LANG_ITALIAN, SUBLANG_ITALIAN_SWISS)	/*0x0810*/
 #include "nls/its.nls"
 LANG_END
 
+LANG_BEGIN (LANG_JAPANESE, SUBLANG_DEFAULT)	/*0x0411*/
+#include "nls/jpn.nls"
+LANG_END
+
 LANG_BEGIN (LANG_KOREAN, SUBLANG_KOREAN)	/*0x0412*/
 #include "nls/kor.nls"
 LANG_END
@@ -2371,23 +2375,26 @@ INT WINAPI LCMapStringW(
   }
   if (srclen==-1) 
     srclen = lstrlenW(srcstr)+1;
+
+  if (dstlen==0)
+    return srclen;  
+  if (dstlen<srclen) 
+  {
+    SetLastError(ERROR_INSUFFICIENT_BUFFER);
+    return 0;
+  }
   if (mapflags & LCMAP_SORTKEY) 
   {
     FIXME_(string)("(0x%04lx,0x%08lx,%p,%d,%p,%d): "
-	  "unimplemented flags: 0x%08lx\n",
+	  "unimplemented flags: 0x%08lx.  Ignoring LC_COLLATE.\n",
 	  lcid,mapflags,srcstr,srclen,dststr,dstlen,mapflags);
-    return 0;
+    memcpy(dststr, srcstr, srclen * sizeof(*srcstr));
+    return srclen;
   }
   else
   {
     int (*f)(int)=identity; 
 
-    if (dstlen==0)
-      return srclen;  
-    if (dstlen<srclen) {
-      SetLastError(ERROR_INSUFFICIENT_BUFFER);
-      return 0;
-    }
     if (mapflags & LCMAP_UPPERCASE)
       f = toupper;
     else if (mapflags & LCMAP_LOWERCASE)