Microperl doesn't do signal handlers, ifdef some handling code

diff --git a/intrpvar.h b/intrpvar.h
index 32a013a..824bf20 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -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 */
 

diff --git a/miniperlmain.c b/miniperlmain.c
index 59d79b0..401af10 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -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);