diff options
| author | Georg Brandl <georg@python.org> | 2016-02-14 15:15:04 +0100 |
|---|---|---|
| committer | Georg Brandl <georg@python.org> | 2016-02-14 15:15:04 +0100 |
| commit | be71a37c4b860a5247cf7f65ea8f3596cef11e9e (patch) | |
| tree | 518bfd491c44e50b9298ea5948a460e584afe6d5 /pygments/lexers/perl.py | |
| parent | 1b8de7302a856a8046315758ae4ed51c775bc84f (diff) | |
| parent | 6297dd482d0b0adcf8f9792da90f4543390cd154 (diff) | |
| download | pygments-git-be71a37c4b860a5247cf7f65ea8f3596cef11e9e.tar.gz | |
merge with stable
Diffstat (limited to 'pygments/lexers/perl.py')
| -rw-r--r-- | pygments/lexers/perl.py | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pygments/lexers/perl.py b/pygments/lexers/perl.py index b78963d0..8df3c810 100644 --- a/pygments/lexers/perl.py +++ b/pygments/lexers/perl.py @@ -109,7 +109,8 @@ class PerlLexer(RegexLexer): 'utime', 'values', 'vec', 'wait', 'waitpid', 'wantarray', 'warn', 'write'), suffix=r'\b'), Name.Builtin), (r'((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\b', Name.Builtin.Pseudo), - (r'<<([\'"]?)([a-zA-Z_]\w*)\1;?\n.*?\n\2\n', String), + (r'(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)', + bygroups(String, String, String.Delimiter, String, String.Delimiter, Text)), (r'__END__', Comment.Preproc, 'end-part'), (r'\$\^[ADEFHILMOPSTWX]', Name.Variable.Global), (r"\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)", Name.Variable.Global), |