2012-10-05 11:55 UTC+0200 Viktor Szakats (harbour syenar.net)

* config/postinst.hb
  * utils/hbmk2/hbmk2.prg
    + Use the second parameter in HB_CWD() calls.

  * contrib/hbformat/hbfmtcls.prg
    ! fixed embedded comment in last commit.

harbour/ChangeLog

@@ -16,6 +16,14 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-05 11:55 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * config/postinst.hb
+  * utils/hbmk2/hbmk2.prg
+    + Use the second parameter in HB_CWD() calls.
+
+  * contrib/hbformat/hbfmtcls.prg
+    ! fixed embedded comment in last commit.
+
 2012-10-05 10:28 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * harbour/src/rtl/philes.c
     * modified HB_CWD() to return previous path if new one is set by

harbour/config/postinst.hb

@@ -215,8 +215,7 @@ PROCEDURE Main( ... )
                      no zip 2.x compatible way to force creation of a new .zip, so we have to delete it
                      first to avoid mixing in an existing .zip file. [vszakats] */
 
-            cOldDir := hb_cwd()
-            hb_cwd( GetEnvC( "HB_INSTALL_PKG_ROOT" ) )
+            cOldDir := hb_cwd( GetEnvC( "HB_INSTALL_PKG_ROOT" ) )
 
             mk_hb_processRun( PathSepToSelf( GetEnvC( "HB_DIR_ZIP" ) ) + "zip" +;
                               " -q -9 -X -r -o" +;
@@ -265,8 +264,7 @@ PROCEDURE Main( ... )
                cGroup := iif( GetEnvC( "HB_PLATFORM" ) == "darwin" .OR. ;
                               GetEnvC( "HB_PLATFORM" ) == "bsd", "wheel", "root" )
 
-               cOldDir := hb_cwd()
-               hb_cwd( GetEnvC( "HB_INSTALL_PKG_ROOT" ) )
+               cOldDir := hb_cwd( GetEnvC( "HB_INSTALL_PKG_ROOT" ) )
 
                /* TODO: Add support for non-GNU non-BSD tar (which gets the data from stdio) */
 

harbour/contrib/hbformat/hbfmtcls.prg

@@ -61,12 +61,11 @@
 
 #define LEFTEQUAL( l, r )       ( Left( l, Len( r ) ) == r )
 
-/* TOFIX:
-     1. 'var ++'
-     2. '- 1' for numeric literals.
-     3. wrongly breaks line: 'FUNCTION Hello( /* comment */ )'
-     ...
- */
+// TOFIX:
+//   1. 'var ++'
+//   2. '- 1' for numeric literals.
+//   3. wrongly breaks line: 'FUNCTION Hello( /* comment */ )'
+//   ...
 
 CREATE CLASS HBFORMATCODE
 

harbour/utils/hbmk2/hbmk2.prg

@@ -6311,11 +6311,10 @@ FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel )
                         IF hbmk[ _HBMK_lDONTEXEC ]
                            cCHD_DirOld := NIL
                         ELSE
-                           cCHD_DirOld := hb_cwd()
+                           cCHD_DirOld := hb_cwd( hbmk[ _HBMK_cWorkDir ] )
                            IF hbmk[ _HBMK_lTRACE ] .AND. hbmk[ _HBMK_lInfo ]
                               _hbmk_OutStd( hbmk, hb_StrFormat( I_( "'cd' to: %1$s" ), hbmk[ _HBMK_cWorkDir ] ) )
                            ENDIF
-                           hb_cwd( hbmk[ _HBMK_cWorkDir ] )
                         ENDIF
                      ENDIF