mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: CPIO plugin - restore file attributes

Browse source
This commit is contained in:
Alexander Koblov 2019-06-12 08:31:42 +00:00
commit 30a64d414d
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
plugins/wcx/cpio/src/cpio_archive.pas
View file

@ -58,7 +58,7 @@ function CanYouHandleThisFile(FileName: PAnsiChar): Boolean; dcpcall;
implementation
uses
SysUtils, DCDateTimeUtils, DCBasicTypes, DCFileAttributes;
SysUtils, DCDateTimeUtils, DCBasicTypes, DCFileAttributes, DCOSUtils;
function GetPackerCaps: Integer;
begin
@ -281,8 +281,9 @@ begin
end else
if not AlignFilePointer(arec^.handle_file, 4) then Result := E_EREAD;
end;
FileSetDate(tfilerec(cpio_file).handle, UnixFileTimeToWcxTime(TUnixFileTime(head.mtime)));
CloseFile(cpio_file);
mbFileSetAttr(cpio_name, UnixToWcxFileAttr(head.mode));
FileSetDate(cpio_name, UnixFileTimeToWcxTime(TUnixFileTime(head.mtime)));
if result<>0 then
Erase(cpio_file);
FreeMem(buf, 65536);