Explorar o código

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

git-svn-id: trunk@29193 -
joost %!s(int64=10) %!d(string=hai) anos
pai
achega
408852bca6
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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);