From 452b32b344a8d9f9a1bff1fd936d0a50a5dbe0f8 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Fri, 17 Aug 2007 04:11:26 +0000
Subject: [PATCH] perl bugfixes

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

diff --git a/mode/perl.py b/mode/perl.py
index 8b5f7c9..dcfe2fb 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -18,6 +18,7 @@ def _make_string_rules(forbidden=None):
         rule = PatternRule(r'scalar', r"\$[^A-Za-z0-9 \\%s](?![A-Za-z0-9_])" % forbidden)
     else:
         rule = ContextPatternRule(r'scalar', r"\$[^A-Za-z0-9 %(delim)s](?![A-Za-z0-9_])", r"\$[^A-Za-z0-9 ](?![A-Za-z0-9_])")
+
     rules = [
         PatternRule(r'octal', r'\\[0-7]{3}'),
         PatternRule(r'escaped', r'\\.'),