From 1a0760897c81afebc3e9d2ead502d09eff9479ee Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Sun, 23 Apr 2000 22:58:26 +0000
Subject: Ensured lexers do not style any more than they have been asked to.

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

(limited to 'src/LexPerl.cxx')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index c57934866..2ed36e192 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -110,7 +110,7 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 	char chPrev = ' ';
 	char chNext = styler[startPos];
 	styler.StartSegment(startPos);
-	for (int i = startPos; i <= lengthDoc; i++) {
+	for (int i = startPos; i < lengthDoc; i++) {
 		char ch = chNext;
 		chNext = styler.SafeGetCharAt(i + 1);
 		char chNext2 = styler.SafeGetCharAt(i + 2);
-- 
cgit v1.2.3