FIX: Create directory for ignore list when environment variable is used

This commit is contained in:
Alexander Koblov 2012-03-21 05:15:27 +00:00
commit fe128694e3

View file

@ -1099,6 +1099,7 @@ procedure SaveGlobs;
var
TmpConfig: TXmlConfig;
Ini: TIniFileEx = nil;
FileName: UTF8String;
begin
if (gUseConfigInProgramDirNew <> gUseConfigInProgramDir) and
(gpCmdLineCfgDir = EmptyStr) then
@ -1145,8 +1146,9 @@ begin
end;
if gIgnoreListFileEnabled then
begin
mbForceDirectory(ExtractFileDir(gIgnoreListFile));
glsIgnoreList.SaveToFile(ReplaceEnvVars(gIgnoreListFile));
FileName:= ReplaceEnvVars(gIgnoreListFile);
mbForceDirectory(ExtractFileDir(FileName));
glsIgnoreList.SaveToFile(FileName);
end;
gMultiArcList.SaveToFile(gpCfgDir + 'multiarc.ini');