From 426050cb9f8ce83bd32b798b382aba73f2caac42 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Tue, 22 Jan 2013 23:56:42 +0000
Subject: [PATCH] * fix for standalone '~' with HOME=/ on Unix
git-svn-id: trunk@23499 -
---
rtl/inc/fexpand.inc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl/inc/fexpand.inc b/rtl/inc/fexpand.inc
index 43be3ebe37..4cd4664c4c 100644
--- a/rtl/inc/fexpand.inc
+++ b/rtl/inc/fexpand.inc
@@ -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