FIX: ExpandAbsolutePath when path ends with "/.".

This commit is contained in:
cobines 2011-02-13 08:06:28 +00:00
commit e7b08daa42

View file

@ -746,6 +746,8 @@ begin
Delete (Path, I, 2);
I := Pos (DirectorySeparator + '.' + DirectorySeparator, Path);
end;
if StrEnds(Path, DirectorySeparator + '.') then
Delete (Path, Length(Path) - 1, 2);
{Then remove all references to '\..\'}
I := Pos (DirectorySeparator + '..', Path);