Revision: 1312
Author: [email protected]
Date: Fri Jun 18 06:49:52 2010
Log: For subs that recurse, show max depth and time in subroutine table.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1312
Modified:
/trunk/Changes
/trunk/bin/nytprofhtml
=======================================
--- /trunk/Changes Thu Jun 17 07:51:01 2010
+++ /trunk/Changes Fri Jun 18 06:49:52 2010
@@ -12,6 +12,10 @@
add u key to treemap to trigger moving 'up' a level
add "calls N subs" to treemap mouseover box
+=head2 Changes in Devel::NYTProf 4.03 (svn 1309) 17th June 2010
+
+ For subs that recurse, show max depth and time in subroutine table.
+
=head2 Changes in Devel::NYTProf 4.02 (svn 1309) 17th June 2010
Fixed nytprofhtml performance problem for profiles with
=======================================
--- /trunk/bin/nytprofhtml Thu Jun 17 07:51:01 2010
+++ /trunk/bin/nytprofhtml Fri Jun 18 06:49:52 2010
@@ -320,12 +320,16 @@
my $is_opcode = ($pkg eq 'CORE' or $subr =~ /^CORE:/);
unshift @hints, ($is_opcode) ? 'opcode' : 'xsub';
}
+ if (my $recdepth = $sub->recur_max_depth) {
+ unshift @hints, sprintf "recurses: max depth %d, inclusive
time %s",
+ $recdepth, fmt_time($sub->recur_incl_time);
+ }
$sub_links .= sprintf qq{%*s<a %s>%s</a>%s</span></td>},
$max_pkg_name_len+2, $pkg,
$reporter->href_for_sub($subname),
$subr,
- (@hints) ? " (".join(", ",@hints).")" : "";
+ (@hints) ? " (".join("; ",@hints).")" : "";
$sub_links .= "</tr>\n";
}
--
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]
