From 5bcf42811f8a4564868ade56fe53dd5887247457 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Mon, 27 Apr 2009 20:34:42 +0000
Subject: [PATCH] small perl fix

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

diff --git a/mode/perl.py b/mode/perl.py
index 7503e46..efe91fa 100644
--- 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_]+'