Author: tim.bunce
Date: Mon Mar 9 03:27:47 2009
New Revision: 709
Modified:
trunk/NYTProf.xs
Log:
Don't set PL_perldb when processing options (from NYTPROF env var)
because it causes problems for non-profiling apps like nytprofhtml.
Modified: trunk/NYTProf.xs
==============================================================================
--- trunk/NYTProf.xs (original)
+++ trunk/NYTProf.xs Mon Mar 9 03:27:47 2009
@@ -1824,10 +1824,6 @@
profile_opts = (atoi(value))
? profile_opts | NYTP_OPTf_SAVESRC
: profile_opts & ~NYTP_OPTf_SAVESRC;
- if (profile_opts & NYTP_OPTf_SAVESRC) {
- /* ask perl to keep the source lines so we can copy them */
- PL_perldb |= PERLDBf_SAVESRC | PERLDBf_SAVESRC_NOSUBS;
- }
}
else if (strEQ(option, "zero")) {
profile_zero = atoi(value);
@@ -2455,6 +2451,11 @@
if (profile_opts & NYTP_OPTf_OPTIMIZE)
PL_perldb &= ~PERLDBf_NOOPT;
else PL_perldb |= PERLDBf_NOOPT;
+
+ if (profile_opts & NYTP_OPTf_SAVESRC) {
+ /* ask perl to keep the source lines so we can copy them */
+ PL_perldb |= PERLDBf_SAVESRC | PERLDBf_SAVESRC_NOSUBS;
+ }
if (trace_level)
warn("NYTProf init pid %d, clock %d%s\n", last_pid, profile_clock,
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
-~----------~----~----~----~------~----~------~--~---
