From 89f0e4990a043b1297ece89641cbece5908eb35d Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Fri, 7 May 1999 11:53:47 +0000
Subject: [PATCH] Cleaned up a bit

---
 harbour/tests/working/debugtst.prg | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/harbour/tests/working/debugtst.prg b/harbour/tests/working/debugtst.prg
index 84ff4ef13d..d1a2716e2b 100644
--- a/harbour/tests/working/debugtst.prg
+++ b/harbour/tests/working/debugtst.prg
@@ -116,9 +116,10 @@ function ToChar( xTxt, cSeparator, lDebug )
          endif
 
       case cValTxt=="A"                         // Array
-         cOut       := ""
          if lDebug
             cOut += "{"
+         else
+            cOut := ""
          endif
          nLen := Len( xTxt )
          for n := 1 to nLen                     // For each item : Recurse !
@@ -140,9 +141,7 @@ function ToChar( xTxt, cSeparator, lDebug )
 
       case cValTxt=="O"                         // Object
          if lDebug
-            if lDebug
-                cOut := "Class#"+ToChar( xTxt:ClassH() )+"{"
-            endif
+            cOut := "Class#"+ToChar( xTxt:ClassH() )+"{"
             nLen := Len( xTxt )
             for n := 1 to nLen                     // For each item : Recurse !
                cOut += ToChar( xTxt[n], cSeparator, lDebug )
@@ -150,9 +149,7 @@ function ToChar( xTxt, cSeparator, lDebug )
                   cOut += cSeparator
                endif
             next n
-            if lDebug
-               cOut += ";" + ToChar( aoData( xTxt ), ", " ) + "}"
-            endif
+            cOut += ";" + ToChar( aoData( xTxt ), ", " ) + "}"
          else
             cOut := ToChar( xTxt:Run(), cSeparator, lDebug )
          endif