# HG changeset patch
# User nemo
# Date 1352331960 18000
# Node ID 22d3f053dd9b5fe7fa46ed08df51126029aae9b9
# Parent  b07ce9dfc6bb0b71075a847ef2e8fb656411715d
oups

diff -r b07ce9dfc6bb -r 22d3f053dd9b hedgewars/uVariables.pas
--- 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;