diff options
| author | nyamatongwe <unknown> | 2004-02-25 11:28:41 +0000 |
|---|---|---|
| committer | nyamatongwe <unknown> | 2004-02-25 11:28:41 +0000 |
| commit | ecd54425210aa3287358f11b335d55a8d6a843ba (patch) | |
| tree | 4477db9608749da90ec2326c1a8a37e39341a28a /src/LexPerl.cxx | |
| parent | 766dd365662b606f12bd66c9fcbfe22e5dda11be (diff) | |
| download | scintilla-mirror-ecd54425210aa3287358f11b335d55a8d6a843ba.tar.gz | |
Patch from Kein-Hong Man to fix bug 901008.
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); + |