From fb838b9f33b8cf7c8af69940a6330e583386eb1e Mon Sep 17 00:00:00 2001
From: John Isom <John.Isom2001@gmail.com>
Date: Wed, 29 Jul 2020 08:56:19 -0600
Subject: [PATCH] Update deindenting in perl.kak

---
 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 0231d632..9fa14bb8 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -118,7 +118,7 @@ define-command -hidden perl-indent-on-new-line %~
         # indent after if|else|while|for
         try %[ execute-keys -draft <semicolon><a-F>)MB <a-k> \A(if|else|while|for)\h*\(.*\)\h*\n\h*\n?\z <ret> s \A|.\z <ret> 1<a-&>1<a-space><a-gt> ]
         # deindent closing brace(s) when after cursor
-        try %[ execute-keys -draft <a-x> <a-k>^\h*[})]+\h*(?://.*)?$<ret> \; <a-/> [})] <ret>  m <a-S> 1<a-&> ]
+        try %[ execute-keys -draft <a-x> <a-k>^\h*[})]+\h*(?:#.*)?$<ret> \; <a-/> [})] <ret>  m <a-S> 1<a-&> ]
     =
 ~