From e3b28180385546183e47e6264bcf83c8991b39b7 Mon Sep 17 00:00:00 2001
From: Erik Osheim <erik@osheim.org>
Date: Sun, 26 Jul 2009 11:00:49 -0400
Subject: [PATCH] fix comments

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

diff --git a/mode/perl.py b/mode/perl.py
index fdd1d3b..bd2e935 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -183,14 +183,14 @@ class PerlGrammar(Grammar):
         RegionRule('perl.match', r'm *(?P<delim>\<)',
                    MatchGrammar6, r'\>[a-z]*'),
 
-        # match regexes
+        # match regexes; standard delimiters
         RegionRule('perl.match', r'(?:(?<==~)|(?<=!~)|(?<=\()|(?<=split)|(?<=if)|(?<=unless)|(?<=while)|(?<=until)|(?<=\|\|)|(?<=&&)|(?<==)) *(?P<delim>/)', MatchGrammar1, '/[a-z]*'),
         RegionRule('perl.match', 'm *(?P<delim>/)', MatchGrammar1, '/[a-z]*'),
         RegionRule('perl.match', 'm *(?P<delim>[^ #a-zA-Z0-9_])',
                    MatchGrammar0, '%(delim)s[a-z]*'),
         RegionRule('perl.match', 'm(?P<delim>#)', MatchGrammar2, '#[a-z]*'),
 
-        # match regexes; paired delimiters
+        # replace regexes; paired delimiters
         RegionRule('perl.replace', r's *(?P<delim>\()', MatchGrammar3,
                    r'\)', WhitespaceGrammar, '\(', MatchGrammar3, r'\)[a-z]*'),
         RegionRule('perl.replace', r's *(?P<delim>\[)', MatchGrammar4,
@@ -200,7 +200,7 @@ class PerlGrammar(Grammar):
         RegionRule('perl.replace', r's *(?P<delim>\<)', MatchGrammar6,
                    r'\>', WhitespaceGrammar, '\<', MatchGrammar6, r'\>[a-z]*'),
 
-        # replace regexes
+        # replace regexes; standard delimiters
         RegionRule('perl.replace', 's *(?P<delim>/)', MatchGrammar1,
                    '/', MatchGrammar1, '/[a-z]*'),
         RegionRule('perl.replace', 's *(?P<delim>[^ a-zA-Z0-9_])',