From ad595d4441505de70b0ce431e232dc15eb62fd8c Mon Sep 17 00:00:00 2001 From: moculus Date: Fri, 12 Sep 2008 19:29:39 +0000 Subject: [PATCH] slight perl fixes --HG-- branch : pmacs2 --- mode/perl.py | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mode/perl.py b/mode/perl.py index 06763a9..e0d03c2 100644 --- a/mode/perl.py +++ b/mode/perl.py @@ -93,10 +93,10 @@ class PerlGrammar(Grammar): RegionRule(r'match', r'm(?P#)', StringGrammar, r'#[a-z]*'), # match regexes; paired delimiters - RegionRule(r'replace', r's *(?P\()', StringGrammar, r'\)\(', StringGrammar, r'\)[a-z]*'), - RegionRule(r'replace', r's *(?P\[)', StringGrammar, r'\]\[', StringGrammar, r'\][a-z]*'), - RegionRule(r'replace', r's *(?P\{)', StringGrammar, r'\}\{', StringGrammar, r'\}[a-z]*'), - RegionRule(r'replace', r's *(?P\<)', StringGrammar, r'\>\<', StringGrammar, r'\>[a-z]*'), + RegionRule(r'replace', r's *(?P\()', StringGrammar, r'\) *\(', StringGrammar, r'\)[a-z]*'), + RegionRule(r'replace', r's *(?P\[)', StringGrammar, r'\] *\[', StringGrammar, r'\][a-z]*'), + RegionRule(r'replace', r's *(?P\{)', StringGrammar, r'\} *\{', StringGrammar, r'\}[a-z]*'), + RegionRule(r'replace', r's *(?P\<)', StringGrammar, r'\> *\<', StringGrammar, r'\>[a-z]*'), # replace regexes RegionRule(r'replace', r's *(?P[^ a-zA-Z0-9_])', StringGrammar, r'%(delim)s', StringGrammar, r'%(delim)s[a-z]*'),