diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-06-12 16:05:44 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 12:53:18 +0000 |
| commit | 2c4f7f0e97d22d4d7509fee1fc57509fac9291b6 (patch) | |
| tree | 6869bb67ae679e36d06fe0fd9b3510f5777c4ae5 /miniperlmain.c | |
| parent | 9f2ea79885dcd731e16cfe839c551021222566a9 (diff) | |
| download | perl-2c4f7f0e97d22d4d7509fee1fc57509fac9291b6.tar.gz | |
[patch] perl.gprof control
Message-ID: <Pine.LNX.4.21.0106122247380.24181-100000@mako.covalent.net>
p4raw-id: //depot/perl@10559
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 2994440f46..ed28f47f2a 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -42,6 +42,10 @@ 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); if (!PL_do_undump) { |