From 75bc5f109233dabc8e281ac12b07d67b67804b22 Mon Sep 17 00:00:00 2001
From: Erik Osheim <erik@osheim.org>
Date: Sat, 3 Apr 2010 23:49:44 -0400
Subject: [PATCH] improve glob highlighting

--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 6755cb2..ca82719 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -258,7 +258,7 @@ PerlGrammar.rules = [
     PatternRule('perl.class', word2 + "(?=->)"),
 
     PatternRule('perl.glob', r'\*(?= *{)'),
-    PatternRule('perl.glob', r'(?:(?<=[^a-zA-Z0-9_])|(?<=^)) *\*' + word2),
+    PatternRule('perl.glob', r'(?:(?<=[^a-zA-Z0-9_])|(?<=^)) *\*\$*' + word2),
 
     # some basic stuff
     PatternRule('delimiter', r"::|->|=>|(?<!:):(?!=:)|[,;=\?(){}\[\]\(\)]"),