mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Don't follow cyclic symbolic links

Browse source
This commit is contained in:
Alexander Koblov 2023-05-06 14:35:25 +03:00
commit 9d96e3116a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/filesources/filesystem/ufilesystemutil.pas
View file

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