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

This commit is contained in:
svk
2026-01-21 15:40:33 +03:00
parent 9ff7fa815f
commit 604175491a

View File

@@ -1074,10 +1074,10 @@ proc SendSignal {pid signal} {
if {$tcl_platform(platform) eq "unix"} {
# На Unix-системах
switch -- $signal {
"SIGINT" { exec kill -INT $pid } ; # Ctrl+C
"SIGTERM" { exec kill -TERM $pid } ; # Завершение
"SIGTSTP" { exec kill -TSTP $pid } ; # Ctrl+Z (приостановка)
"SIGKILL" { exec kill -KILL $pid } ; # Принудительное завершение
"SIGINT" {catch {exec kill -INT $pid}} ; # Ctrl+C
"SIGTERM" {catch {exec kill -TERM $pid}} ; # Завершение
"SIGTSTP" {catch {exec kill -TSTP $pid}} ; # Ctrl+Z (приостановка)
"SIGKILL" {catch {exec kill -KILL $pid}} ; # Принудительное завершение
}
} else {
# На Windows