diff options
| author | thatch <devnull@localhost> | 2008-12-28 19:03:57 -0600 |
|---|---|---|
| committer | thatch <devnull@localhost> | 2008-12-28 19:03:57 -0600 |
| commit | b4afda61ef642b5d04fe46a76d6aa21aa33c4518 (patch) | |
| tree | 3c1898987a29b014d815e36d3673f71f228602b8 | |
| parent | 293bbd7ef3b415aa9deb44d63bbf173f029eb5fa (diff) | |
| download | pygments-b4afda61ef642b5d04fe46a76d6aa21aa33c4518.tar.gz | |
Fix #379 (perl heredocs) by allowing optional semicolon
| -rw-r--r-- | pygments/lexers/agile.py | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py index 5df4d3a9..c3819db6 100644 --- a/pygments/lexers/agile.py +++ b/pygments/lexers/agile.py @@ -883,7 +883,7 @@ class PerlLexer(RegexLexer): r'utime|values|vec|wait|waitpid|wantarray|warn|write' r')\b', Name.Builtin), (r'((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\b', Name.Builtin.Pseudo), - (r'<<([a-zA-Z_][a-zA-Z0-9_]*)\n.*?\n\1\n', String), + (r'<<([a-zA-Z_][a-zA-Z0-9_]*);?\n.*?\n\1\n', String), (r'__END__', Comment.Preproc, 'end-part'), (r'\$\^[ADEFHILMOPSTWX]', Name.Variable.Global), (r"\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)", Name.Variable.Global), |