Ignore new ExtUtils::ParseXS files in lib

[perl5.git] / miniperlmain.c

diff --git a/miniperlmain.c b/miniperlmain.c
index 59d79b0..260369e 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -78,7 +78,7 @@ main(int argc, char **argv, char **env)
     PERL_UNUSED_ARG(env);
 #endif
 #ifndef PERL_USE_SAFE_PUTENV
-    PL_use_safe_putenv = 0;
+    PL_use_safe_putenv = FALSE;
 #endif /* PERL_USE_SAFE_PUTENV */
 
     /* if user wants control of gprof profiling off by default */
@@ -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);