Change 14197 by jhi@alpha on 2002/01/11 21:48:49
Integrate perlio;
Install dummy signal() handlers for Win32's SIGINT and SIGBREAK
Affected files ...
.... //depot/perl/win32/win32.c#185 integrate
Differences ...
==== //depot/perl/win32/win32.c#185 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c.~1~ Fri Jan 11 15:00:05 2002
+++ perl/win32/win32.c Fri Jan 11 15:00:05 2002
@@ -4533,6 +4533,15 @@
#ifdef HAVE_INTERP_INTERN
+static void
+win32_csighandler(int sig)
+{
+#if 0
+ dTHXa(PERL_GET_SIG_CONTEXT);
+ Perl_warn(aTHX_ "Got signal %d",sig);
+#endif
+ /* Does nothing */
+}
void
Perl_sys_intern_init(pTHX)
@@ -4551,8 +4560,8 @@
w32_init_socktype = 0;
if (my_perl == PL_curinterp) {
/* Force C runtime signal stuff to set its console handler */
- signal(SIGINT,SIG_DFL);
- signal(SIGBREAK,SIG_DFL);
+ signal(SIGINT,&win32_csighandler);
+ signal(SIGBREAK,&win32_csighandler);
/* Push our handler on top */
SetConsoleCtrlHandler(win32_ctrlhandler,TRUE);
}
End of Patch.
