From 9e200fca2469be3038fc6b7efd81a14847a83256 Mon Sep 17 00:00:00 2001 From: Jan Dubois Date: Fri, 8 Aug 2003 10:49:03 -0700 Subject: [PATCH] kill 'INT' doesn't work on Windows Message-ID: p4raw-id: //depot/perl@20572 --- win32/win32.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/win32/win32.c b/win32/win32.c index 98fbea0..4d8a621 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1115,6 +1115,11 @@ win32_kill(int pid, int sig) if (GenerateConsoleCtrlEvent(CTRL_C_EVENT,pid)) return 0; break; + case SIGBREAK: + case SIGTERM: + if (GenerateConsoleCtrlEvent(CTRL_BREAK_EVENT,pid)) + return 0; + break; default: /* For now be backwards compatible with perl5.6 */ case 9: if (TerminateProcess(hProcess, sig)) { @@ -1139,6 +1144,11 @@ alien_process: if (GenerateConsoleCtrlEvent(CTRL_C_EVENT,pid)) retval = 0; break; + case SIGBREAK: + case SIGTERM: + if (GenerateConsoleCtrlEvent(CTRL_BREAK_EVENT,pid)) + retval = 0; + break; default: /* For now be backwards compatible with perl5.6 */ case 9: if (TerminateProcess(hProcess, sig)) -- 1.8.3.1