From a142452b4b28e35253ca41ef9fb4790985d51233 Mon Sep 17 00:00:00 2001
From: Wieland Pusch <github@wielandpusch.de>
Date: Tue, 10 Oct 2023 19:44:10 +0200
Subject: [PATCH] add kill with sudo_user

---
 lib/Perl/LanguageServer/DebuggerProcess.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/Perl/LanguageServer/DebuggerProcess.pm b/lib/Perl/LanguageServer/DebuggerProcess.pm
index 8ec8e73..20c7e00 100644
--- a/lib/Perl/LanguageServer/DebuggerProcess.pm
+++ b/lib/Perl/LanguageServer/DebuggerProcess.pm
@@ -271,8 +271,15 @@ sub signal
     return if (!$self -> pid) ;
 
     $self -> logger ("Send signal $signal to debuggee\n") ;
-
-    kill $signal, $self -> pid ;
+    if ($self->sudo_user)
+        {
+        my $cmd = "sudo -u ".$self->sudo_user." kill -s $signal `pgrep -P ".$self -> pid."`\n" ;
+        $self -> run_async ([$cmd]) ;
+        }
+    else
+        {
+        kill $signal, $self -> pid ;
+        }
     }
 
 # ---------------------------------------------------------------------------