Sighandler_t
Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
{
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
/* only "parent" interpreter can diddle signals */
if (PL_curinterp != aTHX)
return SIG_ERR;
{
Sighandler_t oldsig;
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
/* only "parent" interpreter can diddle signals */
if (PL_curinterp != aTHX)
return SIG_ERR;
int
Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save)
{
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
/* only "parent" interpreter can diddle signals */
if (PL_curinterp != aTHX)
return -1;
int
Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save)
{
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
/* only "parent" interpreter can diddle signals */
if (PL_curinterp != aTHX)
return -1;