Commits

Rob Hoelz committed 0cca78d

Perl 5: Accept more forms of 'my' for Perl 5 declarations

Comments (0)

Files changed (1)

pygments/lexers/agile.py

     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