2012-06-26 22:44 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/xhb/xhberr.prg ! typo in prev commit
2012-06-26 20:45:16 +00:00
parent bcede0dabb
commit edf8e486b9
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.
 */

+2012-06-26 22:44 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/xhb/xhberr.prg
+    ! typo in prev commit
+
 2012-06-26 20:37 UTC+0200 Viktor Szakats (harbour syenar.net)
  * contrib/xhb/tfile.prg
  * contrib/xhb/ttable.prg
--- a/harbour/contrib/xhb/xhberr.prg
+++ b/harbour/contrib/xhb/xhberr.prg
@@ -611,7 +611,7 @@ STATIC FUNCTION LogError( oerr )
           FSeek( nHandle2, 0, FS_SET )

           while nBytes > 0
-              nRead := FRead( nHandle2, @cBuff, hb_BLen( cBuffer ) )
+              nRead := FRead( nHandle2, @cBuff, hb_BLen( cBuff ) )
              FWrite( nHandle, cBuff, nRead )
              nBytes -= nRead
              cBuff := Space( 10 )