Re: [patch] re_dup

[p5sagit/p5-mst-13.2.git] / miniperlmain.c

diff --git a/miniperlmain.c b/miniperlmain.c
index 2994440..620fed7 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -42,8 +42,18 @@ main(int argc, char **argv, char **env)
 #undef PERLVARIC
 #endif
 
+    /* if user wants control of gprof profiling off by default */
+    /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
+    PERL_GPROF_MONCONTROL(0);
+
     PERL_SYS_INIT3(&argc,&argv,&env);
 
+#ifdef USE_ITHREADS
+    PTHREAD_ATFORK(Perl_atfork_lock,
+                   Perl_atfork_unlock,
+                   Perl_atfork_unlock);
+#endif
+
     if (!PL_do_undump) {
        my_perl = perl_alloc();
        if (!my_perl)