Преглед на файлове

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

git-svn-id: trunk@23499 -
Tomas Hajny преди 12 години
родител
ревизия
426050cb9f
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rtl/inc/fexpand.inc

+ 1 - 1
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