fixed perl context

--HG--
branch : pmacs2
This commit is contained in:
moculus 2009-05-01 20:25:42 +00:00
parent 5bcf42811f
commit e05a896088
1 changed files with 1 additions and 1 deletions

View File

@ -649,7 +649,7 @@ class PerlContext(context.Context):
sub_match = And(Optional(Name('spaces')), sub_match = And(Optional(Name('spaces')),
Match('perl.keyword', 'sub'), Match('perl.keyword', 'sub'),
Name('spaces'), Name('spaces'),
Name('sub')) Name('perl.sub'))
def _regen_stack(self, y): def _regen_stack(self, y):
if y > 0 and self.namelines[y - 1][1]: if y > 0 and self.namelines[y - 1][1]:
return list(self.namelines[y - 1][1]) return list(self.namelines[y - 1][1])