From e05a89608865b5162c2b86d292cf13fee3361045 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Fri, 1 May 2009 20:25:42 +0000
Subject: [PATCH] fixed perl context

--HG--
branch : pmacs2
---
 mode/perl.py | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mode/perl.py b/mode/perl.py
index efe91fa..e27d537 100644
--- 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])