UPD: Don't follow symlink to root directory (issue 0002410

This commit is contained in:
Alexander Koblov 2019-11-30 13:26:24 +00:00
commit 8086e15fe9

View file

@ -271,7 +271,7 @@ var
AddedIndex: Integer;
begin
LinkedFilePath := mbReadAllLinks(aFile.FullPath);
if LinkedFilePath <> '' then
if (LinkedFilePath <> '') and (LinkedFilePath <> PathDelim) then
begin
try
LinkedFile := TFileSystemFileSource.CreateFileFromFile(LinkedFilePath);