From a65e8d75bc22b73439e5043bb751c577eb8c0c08 Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Sat, 27 Jan 2001 07:09:48 +0000
Subject: Patch from Eric to prefer REs after ';'.

---
 src/LexPerl.cxx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index f5487492a..833687741 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -640,7 +640,11 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 				} else if (iswordstart(ch)) {
 					state = SCE_PL_WORD;
 					preferRE = false;
-				} else if (isoperator(ch)) {
+				} else if (isPerlOperator(ch)) {
+					if (ch == ')' || ch == ']')
+						preferRE = false;
+					else
+						preferRE = true;
 					styler.ColourTo(i, SCE_PL_OPERATOR);
 				}
 			}
-- 
cgit v1.2.3