diff options
| author | nyamatongwe <devnull@localhost> | 2011-08-10 12:46:29 +1000 |
|---|---|---|
| committer | nyamatongwe <devnull@localhost> | 2011-08-10 12:46:29 +1000 |
| commit | fa13e9dbdbaf92a5e68e3669ed71cc830c759aa0 (patch) | |
| tree | 98f944ea9d2add8925bf626336bc75e228ce8831 | |
| parent | b675a008777a683bf0f8370b0c69416e9e595ee5 (diff) | |
| download | scintilla-mirror-fa13e9dbdbaf92a5e68e3669ed71cc830c759aa0.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; |