paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 10:30:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Expand ~/ in prefix

Browse Source 
git-svn-id: trunk@19960 -
This commit is contained in:
joost 2012-01-04 10:11:16 +00:00
parent 49700e675c
commit 334df8c989
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fpmkunit/src/fpmkunit.pp
View File

@ -3056,7 +3056,11 @@ end;
procedure TCustomDefaults.SetPrefix(const AValue: String); procedure TCustomDefaults.SetPrefix(const AValue: String);
begin begin
if FPrefix=AValue then exit; if FPrefix=AValue then exit;
FPrefix:=IncludeTrailingPathDelimiter(AValue); // Use ExpandFileName to support ~/ expansion
if AValue<>'' then
FPrefix:=IncludeTrailingPathDelimiter(ExpandFileName(AValue))
else
FPrefix:='';
BaseInstallDir:=''; BaseInstallDir:='';
end; end;