From 924a424acb2ff0620ac456d9df56c99b4bb6bdef Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Wed, 25 Feb 2004 11:28:41 +0000
Subject: Patch from Kein-Hong Man to fix bug 901008.

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

(limited to 'src/LexPerl.cxx')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index 2f58333f3..86dad5b57 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -580,8 +580,9 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 			}
 		} else if (state == SCE_PL_WORD) {
 			if ((!iswordchar(chNext) && chNext != '\'')
-				|| (chNext == '.' && chNext2 == '.')) {
+				|| chNext == '.') {
 				// ".." is always an operator if preceded by a SCE_PL_WORD.
+				// "." never used in Perl variable names
 				// Archaic Perl has quotes inside names
 				if (isMatch(styler, lengthDoc, styler.GetStartSegment(), "__DATA__")
 				 || isMatch(styler, lengthDoc, styler.GetStartSegment(), "__END__")) {
@@ -924,3 +925,4 @@ static const char * const perlWordListDesc[] = {
 };
 
 LexerModule lmPerl(SCLEX_PERL, ColourisePerlDoc, "perl", FoldPerlDoc, perlWordListDesc);
+
-- 
cgit v1.2.3