From 36e89d5fa82fb5f876890e57dc3a98028d384c3d Mon Sep 17 00:00:00 2001
From: Afanasov Dmitry <ender@altlinux.org>
Date: Tue, 21 Apr 2009 18:54:33 +0400
Subject: [PATCH] perl.vim: hilight perl's s,,,/m,, and s|||/m||

---
 runtime/syntax/perl.vim |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/runtime/syntax/perl.vim b/runtime/syntax/perl.vim
index fb9195a..9bd601b 100644
--- a/runtime/syntax/perl.vim
+++ b/runtime/syntax/perl.vim
@@ -236,6 +236,8 @@ syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]/+ end=+/[cgimosx]*
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]#+ end=+#[cgimosx]*+ contains=@perlInterpMatch
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]{+ end=+}[cgimosx]*+ contains=@perlInterpMatch
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]\[+ end=+\][cgimosx]*+ contains=@perlInterpMatch
+syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]|+ end=+|[cgimosx]*+ contains=@perlInterpMatch
+syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!],+ end=+,[cgimosx]*+ contains=@perlInterpMatch
 
 " A special case for m!!x which allows for comments and extra whitespace in the pattern
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]!+ end=+![cgimosx]*+ contains=@perlInterpSlash,perlComment
@@ -251,6 +253,8 @@ syn region perlMatch	matchgroup=perlMatchStartEnd start=+^split /+lc=5 start=+[^
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s'+  end=+'+me=e-1 contains=@perlInterpSQ nextgroup=perlSubstitutionSQ
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s"+  end=+"+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionDQ
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s/+  end=+/+me=e-1 contains=@perlInterpSlash nextgroup=perlSubstitutionSlash
+syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s|+  end=+|+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionPalka
+syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s,+  end=+,+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionComma
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s#+  end=+#+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionHash
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s\[+ end=+\]+ contains=@perlInterpMatch nextgroup=perlSubstitutionBracket skipwhite skipempty skipnl
 syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s{+ end=+}+ contains=@perlInterpMatch nextgroup=perlSubstitutionCurly skipwhite skipempty skipnl
@@ -258,6 +262,8 @@ syn region perlSubstitutionSQ		matchgroup=perlMatchStartEnd start=+'+  end=+'[ec
 syn region perlSubstitutionDQ		matchgroup=perlMatchStartEnd start=+"+  end=+"[ecgimosx]*+ contained contains=@perlInterpDQ
 syn region perlSubstitutionSlash	matchgroup=perlMatchStartEnd start=+/+  end=+/[ecgimosx]*+ contained contains=@perlInterpDQ
 syn region perlSubstitutionHash		matchgroup=perlMatchStartEnd start=+#+  end=+#[ecgimosx]*+ contained contains=@perlInterpDQ
+syn region perlSubstitutionPalka	matchgroup=perlMatchStartEnd start=+|+  end=+|[ecgimosx]*+ contained contains=@perlInterpDQ
+syn region perlSubstitutionComma	matchgroup=perlMatchStartEnd start=+,+  end=+,[ecgimosx]*+ contained contains=@perlInterpDQ
 syn region perlSubstitutionBracket	matchgroup=perlMatchStartEnd start=+\[+ end=+\][ecgimosx]*+ contained contains=@perlInterpDQ
 syn region perlSubstitutionCurly	matchgroup=perlMatchStartEnd start=+{+  end=+}[ecgimosx]*+ contained contains=@perlInterpDQ
 
@@ -473,6 +479,8 @@ if version >= 508 || !exists("did_perl_syn_inits")
   HiLink perlSubstitutionDQ	perlString
   HiLink perlSubstitutionSlash	perlString
   HiLink perlSubstitutionHash	perlString
+  HiLink perlSubstitutionPalka	perlString
+  HiLink perlSubstitutionComma	perlString
   HiLink perlSubstitutionBracket perlString
   HiLink perlSubstitutionCurly 	perlString
   HiLink perlSubstitutionPling	perlString
-- 
1.6.1.3.GIT