diff options
Diffstat (limited to 'src/LexPerl.cxx')
| -rw-r--r-- | src/LexPerl.cxx | 4 |
1 files changed, 3 insertions, 1 deletions
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); + |