Revision: 1231
Author: tim.bunce
Date: Tue May 25 13:51:27 2010
Log: Tweaked 'sibling evals' trace message.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1231
Modified:
/trunk/lib/Devel/NYTProf/Data.pm
=======================================
--- /trunk/lib/Devel/NYTProf/Data.pm Thu May 20 12:01:28 2010
+++ /trunk/lib/Devel/NYTProf/Data.pm Tue May 25 13:51:27 2010
@@ -147,10 +147,11 @@
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) in %s",
- $parent_fid, $line, scalar @subs, scalar @evals,
+ warn sprintf "%d:%d: has %d sibling evals (subs %d, evals %d,
keys %d) in %s; fids: %s\n",
+ $parent_fid, $line, scalar @$siblings, scalar @subs,
scalar @evals,
scalar keys %src_keyed,
- join(", ", map { $_->fid } @$siblings),
$parent_fi->filename;
+ $parent_fi->filename,
+ join(" ", map { $_->fid } @$siblings);
}
# 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]
