Revision: 1328
Author: [email protected]
Date: Thu Jul  8 04:43:08 2010
Log: The cumulative inclusive time measured for subs that are involved in
recursion is now reported as 'recursion: ... sum of overlapping time'.
I'm not sure there are any useful use-cases for that number anyway,
but at least the overlapping nature of the measure is more clear.

http://code.google.com/p/perl-devel-nytprof/source/detail?r=1328

Modified:
 /trunk/Changes
 /trunk/bin/nytprofhtml

=======================================
--- /trunk/Changes      Thu Jul  8 02:11:40 2010
+++ /trunk/Changes      Thu Jul  8 04:43:08 2010
@@ -14,11 +14,9 @@

 =head2 Changes in Devel::NYTProf 4.04

-TODO: time reporting for subs that recurse is wrong (eg fib() in demo/demo-code.pl)
-
   Profile records presence of the slow regex match vars ($& $' $`).
-XXX not included in reports yet
-
+  The cumulative inclusive time measured for subs that are involved in
+    recursion is now reported as 'recursion: ... sum of overlapping time'.
   Trace log messages are now flushed immediately.
Reduced risk of crashes in embedded applications that don't handle PL_endav
     carefully, like mod_perl.
=======================================
--- /trunk/bin/nytprofhtml      Thu Jul  8 04:14:31 2010
+++ /trunk/bin/nytprofhtml      Thu Jul  8 04:43:08 2010
@@ -596,7 +596,7 @@
$html .= sprintf qq{, avg %s/call}, fmt_time(($incl_time+$reci_time) / $count),
                 if $count > 1;
             if ($rec_depth) {
-                $html .= sprintf qq{, recursion: max depth %d, time %s},
+ $html .= sprintf qq{, recursion: max depth %d, sum of overlapping time %s},
                     $rec_depth, fmt_time($reci_time);
             }
             $html;
@@ -1357,7 +1357,7 @@

         print $fh sprintf q{<td><a name="f%s" title="%s">%s</a> %s</td>},
             $fi->fid, $fi->abs_filename, $fi->filename_without_inc,
-            (@extra) ? sprintf("(%s)", join ", ", @extra) : "";
+            (@extra) ? sprintf("(%s)", join "; ", @extra) : "";
         print $fh "</tr>\n";
     }
     print $fh "</tbody>\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]

Reply via email to