From 08954068267089a06687e2fd9fc615dd4a47b37a Mon Sep 17 00:00:00 2001
From: Rob Hoelz <rob@hoelz.ro>
Date: Tue, 21 Jan 2014 22:24:32 +0100
Subject: Perl 5: Accept more forms of 'my' for Perl 5 declarations

---
 pygments/lexers/agile.py | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py
index 9a9d83aa..306b5e96 100644
--- a/pygments/lexers/agile.py
+++ b/pygments/lexers/agile.py
@@ -1021,7 +1021,7 @@ class PerlLexer(RegexLexer):
     def analyse_text(text):
         if shebang_matches(text, r'perl'):
             return True
-        if 'my $' in text:
+        if re.search('my\s+[$@%(]', text):
             return 0.9
 
 
-- 
cgit v1.2.1