Microperl doesn't do signal handlers, ifdef some handling code
authorDavid Leadbeater <dgl@dgl.cx>
Mon, 7 Mar 2011 18:45:09 +0000 (18:45 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 28 Mar 2011 09:21:47 +0000 (10:21 +0100)
intrpvar.h
miniperlmain.c

index 32a013a..824bf20 100644 (file)
@@ -708,7 +708,9 @@ PERLVARI(Iunlockhook,       share_proc_t,   PERL_UNLOCK_HOOK)
 
 PERLVARI(Ithreadhook,  thrhook_proc_t, Perl_nothreadhook)
 
+#ifndef PERL_MICRO
 PERLVARI(Isignalhook,  despatch_signals_proc_t, Perl_despatch_signals)
+#endif
 
 PERLVARI(Ihash_seed, UV, 0)            /* Hash initializer */
 
index 59d79b0..401af10 100644 (file)
@@ -118,12 +118,14 @@ main(int argc, char **argv, char **env)
     if (!exitstatus)
         perl_run(my_perl);
 
+#ifndef PERL_MICRO
     /* Unregister our signal handler before destroying my_perl */
     for (i = 0; PL_sig_name[i]; i++) {
        if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
            rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
        }
     }
+#endif
 
     exitstatus = perl_destruct(my_perl);