Revision: 1075
Author: tim.bunce
Date: Sat Feb 20 08:26:38 2010
Log: Only show excl_time in treemap mouseover box if different to incl_time.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1075
Modified:
/trunk/bin/nytprofhtml
=======================================
--- /trunk/bin/nytprofhtml Sat Feb 20 08:19:13 2010
+++ /trunk/bin/nytprofhtml Sat Feb 20 08:26:38 2010
@@ -742,12 +742,13 @@
pl("%d file", scalar $si->caller_fids);
my $total_time = $si->profile->{attribute}{profiler_duration};
- my $excl_time = $si->excl_time;
- push @html, sprintf "Exclusive time: %s, %.2f%%",
- fmt_time($excl_time), $excl_time/$total_time*100;
my $incl_time = $si->incl_time;
push @html, sprintf "Inclusive time: %s, %.2f%%",
- fmt_time($incl_time), $incl_time/$total_time*100;
+ fmt_time($incl_time), $incl_time/$total_time*100;
+ my $excl_time = $si->excl_time;
+ push @html, sprintf "Exclusive time: %s, %.2f%%",
+ fmt_time($excl_time), $excl_time/$total_time*100
+ if $excl_time ne $incl_time;
if (my $mrd = $si->recur_max_depth) {
push @html, sprintf "Recursion: max depth %d, recursive
inclusive time %s",
--
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]
