From 507f799ce499006948509066e5750c3a82e496df Mon Sep 17 00:00:00 2001
From: John Isom <John.Isom2001@gmail.com>
Date: Tue, 28 Jul 2020 20:52:06 -0600
Subject: [PATCH] Fix already-existing bug in perl.kak

---
 rc/filetype/perl.kak | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rc/filetype/perl.kak b/rc/filetype/perl.kak
index d3f03ed2..d94f27d4 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -111,8 +111,8 @@ define-command -hidden perl-indent-on-new-line %~
         try %{ execute-keys -draft k<a-x> s \h+$ <ret>d }
         # align to opening paren of previous line
         try %{ execute-keys -draft [( <a-k> \A\([^\n]+\n[^\n]*\n?\z <ret> s \A\(\h*.|.\z <ret> '<a-;>' & }
-        # copy // comments prefix
-        try %{ execute-keys -draft <semicolon><c-s>k<a-x> s ^\h*\K/{2,} <ret> y<c-o>P<esc> }
+        # copy # comments prefix
+        try %{ execute-keys -draft <semicolon><c-s>k<a-x> s ^\h*\K# <ret> y<c-o>P<esc> }
         # indent after a switch's case/default statements
         try %[ execute-keys -draft k<a-x> <a-k> ^\h*(case|default).*:$ <ret> j<a-gt> ]
         # indent after if|else|while|for