From 40e773628923f34e1ee1ec940f80e5efafe57d0e Mon Sep 17 00:00:00 2001 From: Grigory Filatov Date: Fri, 25 Oct 2024 14:10:22 +0200 Subject: [PATCH] 2024-10-25 14:09 UTC+0200 Aleksander Czajczynski (hb fki.pl) * contrib/hbziparc/ziparc.prg ! return value of hb_zipDeleteFile() is not logical, fix by Grigory Filatov. --- ChangeLog.txt | 5 +++++ contrib/hbziparc/ziparc.prg | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog.txt b/ChangeLog.txt index cc4fb35fb2..8ffc60ffda 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -7,6 +7,11 @@ Entries may not always be in chronological/commit order. See license at the end of file. */ +2024-10-25 14:09 UTC+0200 Aleksander Czajczynski (hb fki.pl) + * contrib/hbziparc/ziparc.prg + ! return value of hb_zipDeleteFile() is not logical, + fix by Grigory Filatov. + 2024-10-18 07:56 UTC+0200 Aleksander Czajczynski (hb fki.pl) * src/common/hbver.c * guard Win10 build number getter from the unknown, diff --git a/contrib/hbziparc/ziparc.prg b/contrib/hbziparc/ziparc.prg index 694e2a6209..c34e082849 100644 --- a/contrib/hbziparc/ziparc.prg +++ b/contrib/hbziparc/ziparc.prg @@ -496,7 +496,7 @@ FUNCTION hb_ZipDeleteFiles( cFileName, acFiles ) ENDIF FOR EACH cFileToProc IN acFiles - lRetVal := lRetVal .AND. hb_zipDeleteFile( cFileName, cFileToProc ) + lRetVal := lRetVal .AND. ( hb_zipDeleteFile( cFileName, cFileToProc ) == UNZ_OK ) NEXT RETURN lRetVal