From cc9447c15b651679e01ed37be9adc5c8cc887a19 Mon Sep 17 00:00:00 2001
From: Johannes Altmanninger <aclopte@gmail.com>
Date: Mon, 19 Oct 2020 19:08:09 +0200
Subject: [PATCH] rc perl.kak: highlight substitution with empty replacement,
 like `s{foo}{}`

---
 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 2f878050..26a5dbe4 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -44,7 +44,7 @@ add-highlighter shared/perl/comment        region (?<!\$)(?<!\\)#   $
 
 add-highlighter shared/perl/regex          region m?(?<!/)(?<!qr)/[^/\n]+(?=/)  /\w*   fill meta
 add-highlighter shared/perl/sregex         region s/[^/\n]+/[^/\n]+(?=/)        /\w*   fill meta
-add-highlighter shared/perl/bregex         region s\{[^\}\n]+\}\{[^\}\n]+(?=\}) \}\w*  fill meta
+add-highlighter shared/perl/bregex         region s\{[^\}\n]+\}\{[^\}\n]*(?=\}) \}\w*  fill meta
 
 add-highlighter shared/perl/quote_brace    region -recurse \{ \bq[qrwx]?\{ \}          fill string
 add-highlighter shared/perl/quote_paren    region -recurse \( \bq[qrwx]?\( \)          fill string