From 9b5c7bcd15325e163731ef06aea280fa04ed863e Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Wed, 1 Jul 2009 09:54:33 +0000
Subject: Patch from Kein-Hong Man for bug #2809168.

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

(limited to 'src')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index 22b455d0e..0c6603620 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -963,6 +963,7 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 				bool hereDocSpace = false;		// for: SCALAR [whitespace] '<<'
 				unsigned int bk = (sc.currentPos > 0) ? sc.currentPos - 1: 0;
 				unsigned int bkend;
+				sc.Complete();
 				styler.Flush();
 				if (styler.StyleAt(bk) == SCE_PL_DEFAULT)
 					hereDocSpace = true;
@@ -1142,6 +1143,7 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 				}
 				backFlag = BACK_NONE;
 			} else if (sc.ch == '(' && sc.currentPos > 0) {	// '(' or subroutine prototype
+				sc.Complete();
 				if (styleCheckSubPrototype(styler, sc.currentPos - 1)) {
 					sc.SetState(SCE_PL_SUB_PROTOTYPE);
 					backFlag = BACK_NONE;
-- 
cgit v1.2.3