fixed perl context

--HG-- branch : pmacs2
2009-05-01 20:25:42 +00:00 · 2009-05-01 20:25:42 +00:00 · e05a896088
parent 5bcf42811f
commit e05a896088
1 changed files with 1 additions and 1 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -649,7 +649,7 @@ class PerlContext(context.Context):
    sub_match = And(Optional(Name('spaces')), 
                    Match('perl.keyword', 'sub'),
                    Name('spaces'),
-                    Name('sub'))
+                    Name('perl.sub'))
    def _regen_stack(self, y):
        if y > 0 and self.namelines[y - 1][1]:
            return list(self.namelines[y - 1][1])