From 96e1318cfbc9e063e8d20ea7032111873b37e3bf Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Sat, 22 May 1999 13:58:33 +0000
Subject: [PATCH] Set exact struck again !

---
 harbour/tests/working/testtok.prg | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/harbour/tests/working/testtok.prg b/harbour/tests/working/testtok.prg
index ce60d3722d..bced9badc1 100644
--- a/harbour/tests/working/testtok.prg
+++ b/harbour/tests/working/testtok.prg
@@ -1,7 +1,12 @@
+#include "set.ch"
+
 procedure main()
-   local a := strtoarray("this is a great big test of strtoken")
+   local a
    local i
 
+   set( _SET_EXACT, .T. )               /* Stupid command !!!!
+                                           Always causing bugs !!*/
+   a := strtoarray("this is a great big test of strtoken")
    for i := 1 to len(a)
       qout( a[i] )
    next i
@@ -11,7 +16,9 @@ function strtoarray(s)
    local aResult := {}
    local t, l
 
+   QOut( "Here" )
    while( s <> "" )
+      QOut( "This" )
       t := strtoken(s, 1,, @l)