Commits

Rob Hoelz  committed 0cca78d

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

  • Participants
  • Parent commits ba25f2a

Comments (0)

Files changed (1)

File 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