Ignore new ExtUtils::ParseXS files in lib

[perl5.git] / miniperlmain.c

diff --git a/miniperlmain.c b/miniperlmain.c
index 39f8f19..260369e 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -74,9 +74,11 @@ main(int argc, char **argv, char **env)
     my_vars = my_plvarsp = plvarsp;
 #  endif
 #endif /* PERL_GLOBAL_STRUCT */
-    (void)env;
+#ifndef NO_ENV_ARRAY_IN_MAIN
+    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 */
@@ -116,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);