rc perl: quoted heredocs can be empty

Also the closing line cannot have any trailing characters.
Leading tabs are allowed if <<~ is used.
This commit is contained in:
Johannes Altmanninger 2020-10-11 12:41:32 +02:00
parent 65587d1eee
commit 19391f8c02

View File

@ -53,9 +53,9 @@ add-highlighter shared/perl/quote_angle region -recurse < \bq[qrwx]?< >
add-highlighter shared/perl/quote_punct region -match-capture '\bq[qwx]?([:;!@#$%^&*|,.?/~=+-])' '(.)' fill string
add-highlighter shared/perl/quote_regex region -match-capture '\bqr([:;!@#$%^&*|,.?/~=+-])' '(.)' fill meta
add-highlighter shared/perl/double_heredoc region -match-capture <<~?\h*'(\w+)' ^\t*(\w+)\b fill string
add-highlighter shared/perl/single_heredoc region -match-capture <<~?\h*"(\w+)" ^\t*(\w+)\b fill string
add-highlighter shared/perl/bare_heredoc region -match-capture <<~?(\w+) ^\t*(\w+)\b fill string
add-highlighter shared/perl/double_heredoc region -match-capture <<~?\h*'(\w*)' ^\t*(\w*)$ fill string
add-highlighter shared/perl/single_heredoc region -match-capture <<~?\h*"(\w*)" ^\t*(\w*)$ fill string
add-highlighter shared/perl/bare_heredoc region -match-capture <<~?(\w+) ^\t*(\w+)$ fill string
add-highlighter shared/perl/pod region ^=\w+ ^=cut\b fill string
evaluate-commands %sh{