On Wed, Jul 01, 2009 at 09:39:18PM -0500, Elliot Shank wrote:
> 
> Elliot Shank wrote:
> > Tim Bunce wrote:
> >>> What am I misinterpreting?  Or am I running into something weird?
> >> All sounds odd. Are string evals or recursion involved?
> 
> Do the block times come from "subroutines" or are they aggregated
> lines?

Aggregated lines.

> I chunked up the subroutine into blocks where I could and
> reran.  The blocks agree with the line times and not the sub time.

Which is reasonable. The issue is definitely with the subroutine profiler.

Could you hack the nytprofhtml code to not show the source code
and then send me the report? All it needs is:

    sub report_src_line {
        my ($value, undef, $linesrc, $profile, $subs, $calls, $thisfile) = @_;
    
        $linesrc = _escape_html($linesrc);
    +   $linesrc = "#\n";

Or (or preferably And) hack the incr_sub_inclusive_time() sub in NYTProf.xs 
like this:

    -    if (trace_level >= 3)
    +    if (trace_level >= 3 || 
strEQ(SvPV_nolen(subname_sv),"Pkg::Subpkg::subname"))

to see what the subroutine profiler is doing in relation to that sub.

Tim.

--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---

Reply via email to