From 89703a2e2ff42777d4638304cd67d0a6afb61c8a Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 21 Oct 2011 13:52:52 +0000 Subject: [PATCH] 2011-10-21 15:52 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbziparc/ziparc.prg ! fix to prev --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbziparc/ziparc.prg | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 3638bff569..c004474d4b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2011-10-21 15:52 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbziparc/ziparc.prg + ! fix to prev + 2011-10-21 15:46 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbziparc/ziparc.prg + added support for HB_UNZIPFILE() lWithPath parameter diff --git a/harbour/contrib/hbziparc/ziparc.prg b/harbour/contrib/hbziparc/ziparc.prg index 9568cb13c2..ce444f2c1b 100644 --- a/harbour/contrib/hbziparc/ziparc.prg +++ b/harbour/contrib/hbziparc/ziparc.prg @@ -449,7 +449,7 @@ FUNCTION hb_UnzipFile( cFileName, bUpdate, lWithPath, cPassword, cPath, acFiles, hb_FNameSplit( cFileName, @cPath ) ENDIF - cPath := hb_DirAddPathSep( cPath ) + cPath := hb_DirSepAdd( cPath ) nRead := 0 nPos := 0