small perl fix

--HG-- branch : pmacs2
2009-04-27 20:34:42 +00:00 · 2009-04-27 20:34:42 +00:00 · 5bcf42811f
parent 1a66165dbd
commit 5bcf42811f
1 changed files with 2 additions and 1 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -33,7 +33,8 @@ strg1 = r"'(?:\\.|[^'\\])*'"
 strg2 = r'"(?:\\.|[^"\\])*"'
 wchr1 = '[a-zA-Z_]'
 wchr2 = '[a-zA-Z0-9_]'
-hword = wchr2 + '+'
+wchr3 = '[-a-zA-Z0-9_]'
+hword = wchr3 + '+'
 word1 = wchr1 + wchr2 + '*'
 word2 = '(?:' + word1 + '::)*' + word1
 pname = '[.a-zA-Z0-9_]+'