From fce419293c465b99d184b279476943c3274cdaa5 Mon Sep 17 00:00:00 2001
From: Erik Osheim <eosheim@osheim.org>
Date: Mon, 27 Jul 2009 14:42:39 -0400
Subject: [PATCH] bugfix

--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 ec1b921..d920298 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -266,7 +266,7 @@ PerlGrammar.rules = [
     PatternRule('perl.operator', r"\+=|-=|\*=|/=|//=|%=|&=\|\^=|>>=|<<=|\*\*=|\\"),
     PatternRule('perl.operator', r"\+\+|\+|<=>|<>|<<|<=|<|-|>>|>=|>|\*\*|\*|&&|&|\|\||\||/|\^|==|//|~|=~|!~|!=|%|!|\.\.|\.|x(?![a-zA-Z_])"),
     PatternRule('perl.noperator', "(?:xor|or|not|ne|lt|le|gt|ge|eq|cmp|and)(?![a-zA-Z_])"),
-    PatternRule('perl.function', word2 + r'(?= *[a-zA_Z0-9_$@%&*\\\'(){}\[\]\"])'),
+    PatternRule('perl.function', word2 + r'(?= +[a-zA_Z0-9_$@%&*\\\'(){}\[\]\"])'),
     PatternRule('perl.bareword', word2),
 
     spaces,