2014-09-19 15:22 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* src/common/hbdate.c
    ! fixed typo in hb_timeUTCOffset() - this code was used in POSIX
      systems which do not support gmtime_r()/localtime_r() - many
      thanks to Teo.

  * src/debug/dbgentry.c
  * src/debug/debugger.prg
    * prepare the code to return error object when evaluated expression
      fails as proposed by Teo. This functionality is not enabled yet.
      I'm waiting for information about current public debugger API used
      in 3-rd party projects before I decide to change it.

src/debug/debugger.prg

@@ -880,8 +880,8 @@ METHOD DoCommand( cCommand ) CLASS HBDebugger
       IF aCmnd[ WP_TYPE ] == "??"
          IF lValid
             ::Inspect( aCmnd[ WP_EXPR ], cResult )
+            cResult := ""  // discard result
          ENDIF
-         cResult := ""  // discard result
       ELSEIF lValid
          cResult := __dbgValToStr( cResult )
       ENDIF
@@ -1347,20 +1347,20 @@ METHOD GetExprValue( xExpr, lValid ) CLASS HBDebugger
 
    lValid := .F.
 
-   BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
-      xResult := __dbgGetExprValue( ::pInfo, xExpr, @lValid )
-      IF ! lValid
+   xResult := __dbgGetExprValue( ::pInfo, xExpr, @lValid )
+   IF ! lValid
+      oErr := xResult
+      IF oErr:ClassName() == "ERROR"
+         xResult := oErr:operation + ": " + oErr:description
+         IF HB_ISARRAY( oErr:args )
+            xResult += "; arguments:"
+            AEval( oErr:args, {| x, i | xResult += iif( i == 1, " ", ", " ) + ;
+                                                   __dbgValToStr( x ) } )
+         ENDIF
+      ELSE
          xResult := "Syntax error"
       ENDIF
-   RECOVER USING oErr
-      xResult := oErr:operation + ": " + oErr:description
-      IF HB_ISARRAY( oErr:args )
-         xResult += "; arguments:"
-         AEval( oErr:args, {| x, i | xResult += iif( i == 1, " ", ", " ) + ;
-                                                AllTrim( __dbgValToStr( x ) ) } )
-      ENDIF
-      lValid := .F.
-   END SEQUENCE
+   ENDIF
 
    RETURN xResult