hedgewars/uVariables.pas
changeset 8009 22d3f053dd9b
parent 8003 7d8bce524daf
child 8012 2a61631a4505
--- a/hedgewars/uVariables.pas	Wed Nov 07 15:37:02 2012 -0500
+++ b/hedgewars/uVariables.pas	Wed Nov 07 18:46:00 2012 -0500
@@ -2576,9 +2576,10 @@
 end;
 
 procedure initModule;
+var s: ShortString;
 begin
-
-    SplitByChar(cLocaleFName, cLocale, '.');
+    cLocale:= cLocaleFName;
+    SplitByChar(cLocale, s, '.');
 
     cFlattenFlakes      := false;
     cFlattenClouds      := false;