Fix perl regex for operator //

This commit is contained in:
buffet 2020-05-05 16:22:30 +00:00
parent 2fca4e5643
commit 7870685248

View File

@ -42,7 +42,7 @@ add-highlighter shared/perl/double_string region (?<!\$)(?<!\\)" (?<!\\)(\\\\)
add-highlighter shared/perl/single_string region (?<!\$)(?<!\\\\)' (?<!\\)(\\\\)*' fill string add-highlighter shared/perl/single_string region (?<!\$)(?<!\\\\)' (?<!\\)(\\\\)*' fill string
add-highlighter shared/perl/comment region (?<!\$)(?<!\\)# $ fill comment add-highlighter shared/perl/comment region (?<!\$)(?<!\\)# $ fill comment
add-highlighter shared/perl/regex region m?/[^/\n]+(?=/) /\w? fill meta add-highlighter shared/perl/regex region m?(?<!/)/[^/\n]+(?=/) /\w? fill meta
add-highlighter shared/perl/sregex region s/[^/\n]+/[^/\n]+(?=/) /\w? fill meta add-highlighter shared/perl/sregex region s/[^/\n]+/[^/\n]+(?=/) /\w? fill meta
add-highlighter shared/perl/q1 region -recurse \{ q\{ \} fill string add-highlighter shared/perl/q1 region -recurse \{ q\{ \} fill string