From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Fri, 22 Mar 2002 16:11:28 +0000 (+0100)
Subject: Win32 w/o multiplicity build fails
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96116d939c5af7e52586e7bf48eee5c15530acd5;p=p5sagit%2Fp5-mst-13.2.git

Win32 w/o multiplicity build fails
From: "Mattia Barbon" <mbarbon@dsi.unive.it>
Message-ID: <3C9B57B0.31936.496399@localhost>

p4raw-id: //depot/perl@15517
---

diff --git a/win32/win32.c b/win32/win32.c
index f226d97..31a1496 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