Revision: 991 Author: tim.bunce Date: Tue Dec 22 14:40:21 2009 Log: Fixed avg/call time shown for subs called recursively. Added recitime.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=991 Modified: /trunk/bin/nytprofhtml ======================================= --- /trunk/bin/nytprofhtml Tue Dec 22 14:14:33 2009 +++ /trunk/bin/nytprofhtml Tue Dec 22 14:40:21 2009 @@ -466,10 +466,12 @@ $count, $count == 1 ? "" : "s"; (my $subname_trimmed = $subname) =~ s/$inc_path_regex//g; $html .= sprintf qq{<a %s>%s</a>}, $reporter->href_for_sub($subname), $subname_trimmed; - $html .= sprintf qq{, avg %s/call}, fmt_time($incl_time / $count) + $html .= sprintf qq{, avg %s/call}, fmt_time(($incl_time+$reci_time) / $count), if $count > 1; - $html .= sprintf qq{, max recursion depth %d}, $rec_depth - if $rec_depth; + if ($rec_depth) { + $html .= sprintf qq{, recursion: max depth %d, time %s}, + $rec_depth, fmt_time($reci_time); + } $html; } @calls_to; $epilogue = sprintf qq{<div class="calls"><div class="calls_out">%s</div></div>}, $epilogue; -- 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]
