From a61bca0de8607ae2fda300b03f3998f263288329 Mon Sep 17 00:00:00 2001
From: Erik Osheim <eosheim@solutionsforprogress.com>
Date: Wed, 3 Jun 2009 13:58:48 -0400
Subject: [PATCH] small perl regex fix

--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 e27d537..02457bc 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -143,7 +143,7 @@ class PerlGrammar(Grammar):
                    MatchGrammar6, r'\>[a-z]*'),
 
         # match regexes
-        RegionRule('perl.match', r'(?:(?<==~)|(?<=!~)|(?<=\()|(?<=split)|(?<=if)|(?<=unless)|(?<=while)|(?<=until)) *(?P<delim>/)', MatchGrammar1, '/[a-z]*'),
+        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_])',
                    StringGrammar, '%(delim)s[a-z]*'),