diff options
| author | nyamatongwe <unknown> | 2011-08-10 12:46:29 +1000 |
|---|---|---|
| committer | nyamatongwe <unknown> | 2011-08-10 12:46:29 +1000 |
| commit | 7d81161370e2e4895d1f29ce1d2c207e97a7020b (patch) | |
| tree | 8303d1f982f7bf79c6f04b6c458067ea40ee8754 | |
| parent | 5872020bc49119fe7153b3c1ece649133acad811 (diff) | |
| download | scintilla-mirror-7d81161370e2e4895d1f29ce1d2c207e97a7020b.tar.gz | |
Feature #3388802. Support changes in Perl 5.14.0:
(a) new + character for subroutine prototypes
(b) 0X and 0B prefixes for binary and hexadecimal numbers are now legal
From Kein-Hong Man
| -rw-r--r-- | lexers/LexPerl.cxx | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lexers/LexPerl.cxx b/lexers/LexPerl.cxx index 8a4456273..5efc1d636 100644 --- a/lexers/LexPerl.cxx +++ b/lexers/LexPerl.cxx @@ -442,7 +442,7 @@ void SCI_METHOD LexerPerl::Lex(unsigned int startPos, int length, int initStyle, CharacterSet &setPOD = setModifiers; CharacterSet setNonHereDoc(CharacterSet::setDigits, "=$@"); CharacterSet setHereDocDelim(CharacterSet::setAlphaNum, "_"); - CharacterSet setSubPrototype(CharacterSet::setNone, "\\[$@%&*];"); + CharacterSet setSubPrototype(CharacterSet::setNone, "\\[$@%&*+];"); // for format identifiers CharacterSet setFormatStart(CharacterSet::setAlpha, "_="); CharacterSet &setFormat = setHereDocDelim; @@ -994,9 +994,9 @@ void SCI_METHOD LexerPerl::Lex(unsigned int startPos, int length, int initStyle, numState = PERLNUM_DECIMAL; dotCount = 0; if (sc.ch == '0') { // hex,bin,octal - if (sc.chNext == 'x') { + if (sc.chNext == 'x' || sc.chNext == 'X') { numState = PERLNUM_HEX; - } else if (sc.chNext == 'b') { + } else if (sc.chNext == 'b' || sc.chNext == 'B') { numState = PERLNUM_BINARY; } else if (IsADigit(sc.chNext)) { numState = PERLNUM_OCTAL; |