瀏覽代碼

* Do not change an empty .fpm-file path into an absolute path. (in zipfiles)

git-svn-id: trunk@29193 -
joost 10 年之前
父節點
當前提交
408852bca6
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -6657,7 +6657,7 @@ end;
 
 function TBuildEngine.GetUnitConfigFilesInstallDir(ABaseDir: string): String;
 begin
-  result := IncludeTrailingPathDelimiter(ABaseDir)+Defaults.UnitConfigFilesInstallDir;
+  result := FixPath(ABaseDir)+Defaults.UnitConfigFilesInstallDir;
 end;
 
 procedure TBuildEngine.InstallUnitConfigFile(APAckage: TPackage; const Dest: String);