[Super-tux-commit] supertux/src lispreader.cpp,1.32,1.33

[Ricardo C. <rm...@us...>]

Update of /cvsroot/super-tux/supertux/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15050/src

Modified Files:
	lispreader.cpp 
Log Message:
Read the first 5 chars, not the all string of LANG.

Index: lispreader.cpp
===================================================================
RCS file: /cvsroot/super-tux/supertux/src/lispreader.cpp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- lispreader.cpp	12 Jul 2004 22:04:26 -0000	1.32
+++ lispreader.cpp	16 Jul 2004 19:15:00 -0000	1.33
@@ -1221,9 +1221,18 @@
     char* lang = getenv("LANG");
 
     char str_[1024];  // check, for instance, for (title-fr_FR "Bonjour")
-    sprintf(str_, "%s-%s", name, lang);
 
-    obj = search_for (str_);
+    if(lang != NULL && strlen(lang) >= 5)
+      {
+      char lang_[6];
+      strncpy(lang_, lang, 5);
+      lang_[5] = '\0';
+      sprintf(str_, "%s-%s", name, lang_);
+
+      obj = search_for (str_);
+      }
+    else
+      obj = 0;
 
     if(!obj)  // check, for instance, for (title-fr "Bonjour")
       {