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: Zip - crash on file replace with some .tar archives (fixes #1744)

Browse source
This commit is contained in:
Alexander Koblov 2024-07-14 14:43:20 +03:00
commit 752d3c9f23
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
plugins/wcx/zip/src/fparchive/abutils.pas
View file

@ -716,7 +716,7 @@ begin
{$ENDIF MSWINDOWS}
{$IFDEF UNIX}
{ UNIX absolute paths start with a slash }
if (Value[1] = AbPathDelim) then
if (Length(Value) > 0) and (Value[1] = AbPathDelim) then
{$ENDIF UNIX}
Result := ptAbsolute
else if ( Pos( AbPathDelim, Value ) > 0 ) or ( Pos( AB_ZIPPATHDELIM, Value ) > 0 ) then