Highlight variable inside Perl string.

zufuliu · Jan 4, 2019 · c4ccbc4 · c4ccbc4
1 parent 89f325f
commit c4ccbc4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/EditLexers/stlPerl.c b/src/EditLexers/stlPerl.c
@@ -40,7 +40,7 @@ static EDITSTYLE Styles_Perl[] = {
 	{ MULTI_STYLE(SCE_PL_STRING, SCE_PL_CHARACTER, 0, 0), NP2STYLE_String, EDITSTYLE_HOLE(L"String"), L"fore:#008000" },
 	{ SCE_PL_NUMBER, NP2STYLE_Number, EDITSTYLE_HOLE(L"Number"), L"fore:#FF0000" },
 	{ SCE_PL_OPERATOR, NP2STYLE_Operator, EDITSTYLE_HOLE(L"Operator"), L"fore:#B000B0" },
-	{ SCE_PL_SCALAR, 63401, EDITSTYLE_HOLE(L"Scalar $var"), L"fore:#0000FF" },
+	{ MULTI_STYLE(SCE_PL_SCALAR, SCE_PL_STRING_VAR, 0, 0), 63401, EDITSTYLE_HOLE(L"Scalar $var"), L"fore:#0000FF" },
 	{ SCE_PL_ARRAY, 63402, EDITSTYLE_HOLE(L"Array @var"), L"fore:#FF0080" },
 	{ SCE_PL_HASH, 63403, EDITSTYLE_HOLE(L"Hash %var"), L"fore:#B000B0" },
 	{ SCE_PL_SYMBOLTABLE, 63404, EDITSTYLE_HOLE(L"Symbol Table *var"), L"fore:#3A6EA5" },