Исправил ошибку при отправке сигналов несуществующему процессу.

2026-01-21 15:40:33 +03:00
parent 9ff7fa815f
commit 604175491a
1 changed files with 4 additions and 4 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -1074,10 +1074,10 @@ proc SendSignal {pid signal} {
    if {$tcl_platform(platform) eq "unix"} {
        # На Unix-системах
        switch -- $signal {
-            "SIGINT" { exec kill -INT $pid }  ; # Ctrl+C
+            "SIGINT"  {catch {exec kill -INT $pid}}  ; # Ctrl+C
-            "SIGTERM" { exec kill -TERM $pid } ; # Завершение
+            "SIGTERM" {catch {exec kill -TERM $pid}} ; # Завершение
-            "SIGTSTP" { exec kill -TSTP $pid } ; # Ctrl+Z (приостановка)
+            "SIGTSTP" {catch {exec kill -TSTP $pid}} ; # Ctrl+Z (приостановка)
-            "SIGKILL" { exec kill -KILL $pid } ; # Принудительное завершение
+            "SIGKILL" {catch {exec kill -KILL $pid}} ; # Принудительное завершение
        }
    } else {
        # На Windows