diff options
| author | Mattia Barbon <mbarbon@dsi.unive.it> | 2002-03-22 17:11:28 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-26 13:32:31 +0000 |
| commit | 96116d939c5af7e52586e7bf48eee5c15530acd5 (patch) | |
| tree | a43d651295a5f3b9da8d2ea9ba0cb249fa419c5e /win32/win32.c | |
| parent | bbf171aee9b891c8674684cecebc91b4019f5d4f (diff) | |
| download | perl-96116d939c5af7e52586e7bf48eee5c15530acd5.tar.gz | |
Win32 w/o multiplicity build fails
From: "Mattia Barbon" <mbarbon@dsi.unive.it>
Message-ID: <3C9B57B0.31936.496399@localhost>
p4raw-id: //depot/perl@15517
Diffstat (limited to 'win32/win32.c')
| -rw-r--r-- | win32/win32.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index f226d973c1..31a1496fa0 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4533,6 +4533,8 @@ Perl_init_os_extras(void) */ } +#ifdef MULTIPLICITY + PerlInterpreter * win32_signal_context(void) { @@ -4544,13 +4546,17 @@ win32_signal_context(void) return my_perl; } +#endif + BOOL WINAPI win32_ctrlhandler(DWORD dwCtrlType) { +#ifdef MULTIPLICITY dTHXa(PERL_GET_SIG_CONTEXT); if (!my_perl) return FALSE; +#endif switch(dwCtrlType) { case CTRL_CLOSE_EVENT: @@ -4673,7 +4679,11 @@ Perl_sys_intern_init(pTHX) for (i=0; i < SIG_SIZE; i++) { w32_sighandler[i] = SIG_DFL; } +# ifdef MULTIPLICTY if (my_perl == PL_curinterp) { +# else + { +# endif /* Force C runtime signal stuff to set its console handler */ signal(SIGINT,&win32_csighandler); signal(SIGBREAK,&win32_csighandler); @@ -4693,7 +4703,11 @@ Perl_sys_intern_clear(pTHX) KillTimer(NULL,w32_timerid); w32_timerid=0; } +# ifdef MULTIPLICITY if (my_perl == PL_curinterp) { +# else + { +# endif SetConsoleCtrlHandler(win32_ctrlhandler,FALSE); } # ifdef USE_ITHREADS |