From 8135b6cbd5a69c40b28e5ad5f29313d93a7b3465 Mon Sep 17 00:00:00 2001
From: Rob Hoelz <rob@hoelz.ro>
Date: Mon, 20 Jan 2014 18:38:09 +0100
Subject: Perl 6: Make sure we don't step back when looking for a closing
 delimiter

---
 pygments/lexers/agile.py | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py
index 721586a1..65826e0a 100644
--- a/pygments/lexers/agile.py
+++ b/pygments/lexers/agile.py
@@ -2125,6 +2125,10 @@ class Perl6Lexer(ExtendedRegexLexer):
 
                 end_pos = next_close_pos
 
+            if end_pos < 0: # if we didn't find a closer, just highlight the
+                            # rest of the text in this class
+                end_pos = len(text)
+
             if adverbs is not None and re.search(r':to\b', adverbs):
                 heredoc_terminator = text[match.start('delimiter') + n_chars : end_pos]
                 end_heredoc = re.search(r'^\s*' + re.escape(heredoc_terminator) + r'\s*$', text[ match.end('delimiter') : ], re.MULTILINE)
-- 
cgit v1.2.1