From 787068524862fa3ef8154ed1d4dbd3b93b78c3ac Mon Sep 17 00:00:00 2001
From: buffet <niclas@countingsort.com>
Date: Tue, 5 May 2020 16:22:30 +0000
Subject: [PATCH] Fix perl regex for operator //

---
 rc/filetype/perl.kak | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rc/filetype/perl.kak b/rc/filetype/perl.kak
index 4252a8d3..a2da7cf9 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -42,7 +42,7 @@ add-highlighter shared/perl/double_string region (?<!\$)(?<!\\)"   (?<!\\)(\\\\)
 add-highlighter shared/perl/single_string region (?<!\$)(?<!\\\\)' (?<!\\)(\\\\)*' fill string
 add-highlighter shared/perl/comment       region (?<!\$)(?<!\\)#   $               fill comment
 
-add-highlighter shared/perl/regex         region m?/[^/\n]+(?=/)        /\w?       fill meta
+add-highlighter shared/perl/regex         region m?(?<!/)/[^/\n]+(?=/)  /\w?       fill meta
 add-highlighter shared/perl/sregex        region s/[^/\n]+/[^/\n]+(?=/) /\w?       fill meta
 
 add-highlighter shared/perl/q1            region -recurse \{ q\{ \}                fill string