Unbreak access to Data dir in profile broken in r8b48c27201af
authorunc0rr
Sun, 13 Oct 2013 22:31:51 +0400
changeset 9531 7fcdedc45589
parent 9528 9351e96990ae
child 9533 db77654c3565
Unbreak access to Data dir in profile broken in r8b48c27201af
hedgewars/uPhysFSLayer.pas
hedgewars/uScript.pas
--- a/hedgewars/uPhysFSLayer.pas	Sun Oct 13 21:53:42 2013 +0400
+++ b/hedgewars/uPhysFSLayer.pas	Sun Oct 13 22:31:51 2013 +0400
@@ -143,10 +143,14 @@
 
     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, false);
     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
-    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/'), '/', false);
-    AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/: ' + inttostr(i));
+    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, false);
+    AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
 
     hedgewarsMountPackages;
+
+    i:= PHYSFS_mount(Str2PChar(UserPathPrefix), nil, false);
+    // need access to teams and frontend configs (for bindings)
+    AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i)); 
 end;
 
 procedure freeModule;
--- a/hedgewars/uScript.pas	Sun Oct 13 21:53:42 2013 +0400
+++ b/hedgewars/uScript.pas	Sun Oct 13 22:31:51 2013 +0400
@@ -2088,7 +2088,10 @@
 begin
 s:= cPathz[ptData] + name;
 if not pfsExists(s) then
+    begin
+    AddFileLog('[LUA] Script not found: ' + name);
     exit;
+    end;
 
 f:= pfsOpenRead(s);
 if f = nil then