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.
harbour · Oct 25, 2024 · 40e7736 · 40e7736
1 parent a8693f9
commit 40e7736
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git 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
@@ -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