From 8a5045f7ce97f12b90bb85bd436be58912e05d24 Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Thu, 28 Apr 2005 04:43:28 +0000
Subject: Patch from Kein-Hong Man fixes bug 1189928 for globbing syntax.

---
 src/LexPerl.cxx | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/LexPerl.cxx')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index 67d60fc1a..6bac381d9 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -519,9 +519,13 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 				unsigned int fw = i + 1;
 				while (fw < lengthDoc) {
 					char fwch = styler.SafeGetCharAt(fw);
-					if (isEOLChar(fwch) || isspacechar(fwch))
+					if (fwch == ' ') {
+						if (styler.SafeGetCharAt(fw-1) != '\\' ||
+						    styler.SafeGetCharAt(fw-2) != '\\')
 						break;
-					else if (fwch == '>') {
+					} else if (isEOLChar(fwch) || isspacechar(fwch)) {
+						break;
+					} else if (fwch == '>') {
 						if ((fw - i) == 2 &&	// '<=>' case
 						    styler.SafeGetCharAt(fw-1) == '=') {
 							styler.ColourTo(fw, SCE_PL_OPERATOR);
-- 
cgit v1.2.3