Patch from Steffen to handle $^W and ${"x"} as scalars.

Further change from Neil to avoid whitespace being included in scalars.

1 files changed, 8 insertions, 1 deletions

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index d22d90a6a..f5487492a 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -288,7 +288,14 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 			} else if (ch == '$') {
 				preferRE = false;
 				styler.ColourTo(i - 1, state);
-				state = SCE_PL_SCALAR;
+				if ((chNext == '{') || isspacechar(chNext)) {
+					styler.ColourTo(i, SCE_PL_SCALAR);
+				} else {
+					state = SCE_PL_SCALAR;
+					i++;
+					ch = chNext;
+					chNext = chNext2;
+				}
 			} else if (ch == '@') {
 				preferRE = false;
 				styler.ColourTo(i - 1, state);