diff options
| author | Jan Dubois <jand@activestate.com> | 2003-08-08 10:49:03 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-09 07:06:37 +0000 |
| commit | 9e200fca2469be3038fc6b7efd81a14847a83256 (patch) | |
| tree | f4aaee235c5c197b51bd23de012090bd4194bf85 /win32 | |
| parent | da5add9b468c40165d25db86107f2b7fccd71e90 (diff) | |
| download | perl-9e200fca2469be3038fc6b7efd81a14847a83256.tar.gz | |
kill 'INT' doesn't work on Windows
Message-ID: <ite8jvgjgcfm8e9dhl6f4dtstrbmn1vmpk@4ax.com>
p4raw-id: //depot/perl@20572
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index 98fbea0d04..4d8a6213ee 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)) |