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

* fix for standalone '~' with HOME=/ on Unix

Browse Source 
git-svn-id: trunk@23499 -
This commit is contained in:
Tomas Hajny 2013-01-22 23:56:42 +00:00
parent 7fbf05dd18
commit 426050cb9f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/fexpand.inc
View File

@ -161,7 +161,7 @@ begin
S := GetEnv ('HOME');
{$ENDIF FPC_FEXPAND_GETENV_PCHAR}
{$ENDIF FPC_FEXPAND_SYSUTILS}
if (S = '') or (Length (S) = 1)
if (S = '') or (Length (S) = 1) and (Length (Pa) > 1)
and (S [1] = DirectorySeparator) then
Delete (Pa, 1, 1)
else