From df8095f881ec22102ac77fec40793a582e620fab Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Sun, 30 Jan 2000 14:08:12 +0000
Subject: [PATCH] Updating hbpp.c

---
 harbour/ChangeLog        | 4 ++++
 harbour/source/pp/hbpp.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e554d9496a..3cb4df9f3f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+20000130-17:05 GMT+3 Alexander Kresin
+  * source/pp/hbpp.c
+    * Bug fixed, noted by Ryszard Glab
+
 20000130-13:55 GMT+1 Ryszard Glab <rglab@imid.med.pl>
 
     *source/compiler/harbour.l
diff --git a/harbour/source/pp/hbpp.c b/harbour/source/pp/hbpp.c
index c57fb7788d..6e800e9aa7 100644
--- a/harbour/source/pp/hbpp.c
+++ b/harbour/source/pp/hbpp.c
@@ -748,7 +748,7 @@ int hb_pp_ParseExpression( char * sLine, char * sOutLine )
                   HB_SKIPTABSPACES( ptri );
 
                   if( ( *ptri == '\0' || ( *ptri != '=' &&
-                                            (!IsInStr(*ptri,":/*+-") || *(ptri+1) != '=') &&
+                                            (!IsInStr(*ptri,":/*+-%^") || *(ptri+1) != '=') &&
                                             ( *ptri != '-' || *(ptri+1) != '>' ) ) )
                        && ( stcmd = ComSearch(sToken,NULL) ) != NULL )
                     {