diff options
| author | nyamatongwe <devnull@localhost> | 2004-02-25 11:28:41 +0000 |
|---|---|---|
| committer | nyamatongwe <devnull@localhost> | 2004-02-25 11:28:41 +0000 |
| commit | 924a424acb2ff0620ac456d9df56c99b4bb6bdef (patch) | |
| tree | 4477db9608749da90ec2326c1a8a37e39341a28a /src | |
| parent | f3e316a0fcccda00a48e8ceab70556a2b02fd99f (diff) | |
| download | scintilla-mirror-924a424acb2ff0620ac456d9df56c99b4bb6bdef.tar.gz | |
Patch from Kein-Hong Man to fix bug 901008.
Diffstat (limited to 'src')
| -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); + |