Revision: 1208
Author: tim.bunce
Date: Fri Apr 30 14:42:54 2010
Log: Added parent filename to collapsing-sibling-evals trace message.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1208
Modified:
/trunk/lib/Devel/NYTProf/Data.pm
=======================================
--- /trunk/lib/Devel/NYTProf/Data.pm Mon Apr 26 05:45:51 2010
+++ /trunk/lib/Devel/NYTProf/Data.pm Fri Apr 30 14:42:54 2010
@@ -147,10 +147,10 @@
if ($trace >= 1) {
my @subs = map { $_->subs_defined } @$siblings;
my @evals = map { $_->has_evals(0) } @$siblings;
- warn sprintf "%d:%d: sibling evals (subs %d, evals %d,
keys %d, fids: %s)",
+ warn sprintf "%d:%d: sibling evals (subs %d, evals %d,
keys %d, fids: %s) in %s",
$parent_fid, $line, scalar @subs, scalar @evals,
scalar keys %src_keyed,
- join(", ", map { $_->fid } @$siblings);
+ join(", ", map { $_->fid } @$siblings),
$parent_fi->filename;
}
# if 'too many' distinct eval source keys then simply collapse all
--
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]
