Enable experimental mkdir with parents by default

It was previously disabled due to some reason, unknown to me now.

1 files changed, 7 insertions, 5 deletions

diff --git a/UEngines.pas b/UEngines.pas
index 9483dfb..b77d7e3 100644
--- a/UEngines.pas
+++ b/UEngines.pas
@@ -185,7 +185,7 @@ procedure FreeDataItem(DataItem: PDataItem); overload;
 
 implementation
 
-uses SysUtils, UCoreUtils;
+uses SysUtils, UCoreUtils, UGnome;
 
 (********************************************************************************************************************************)
 constructor TPanelEngine.Create;
@@ -446,15 +446,17 @@ begin
 //  DebugMsg(['(II) TLocalTreeEngine.MakeDir: begin']);
   Result := __mkdir(PChar(NewDir), OctalToAttr(ConfDefaultDirCreationMask));
 //  DebugMsg(['(II) TLocalTreeEngine.MakeDir: Result = ', Result]);
-  if Result <> 0 then Result := errno;
-(*
+//  if Result <> 0 then Result := errno;
+
   if Result <> 0 then try
-    if Self.DirectoryExists(NewDir) { or (not g_mkdir_with_parents(dd))} {ForceDirectories(NewDir))} then Result := errno;
+    if Self.DirectoryExists(NewDir) or (g_mkdir_with_parents(PChar(NewDir), OctalToAttr(ConfDefaultDirCreationMask)) <> 0) {ForceDirectories(NewDir))}
+      then Result := errno
+      else Result := 0;
   except
     Result := -1;
     DebugMsg(['(II) TLocalTreeEngine.MakeDir: Exception']);
   end;
-*)
+
 //  DebugMsg(['(II) TLocalTreeEngine.MakeDir: end']);
 end;