2011-10-21 15:52 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbziparc/ziparc.prg ! fix to prev
2011-10-21 13:52:52 +00:00
parent 02dbec40b8
commit 89703a2e2f
2 changed files with 5 additions and 1 deletions
--- 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
--- 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