Revision: 1304
Author: [email protected]
Date: Wed Jun 16 15:48:43 2010
Log: Tweak trace levels for reporting.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1304
Modified:
/trunk/lib/Devel/NYTProf/FileInfo.pm
/trunk/lib/Devel/NYTProf/SubInfo.pm
=======================================
--- /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Jun 16 15:17:19 2010
+++ /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Jun 16 15:48:43 2010
@@ -281,7 +281,7 @@
warn sprintf "collapse_sibling_evals: processing donor
fid %d: %s\n",
$donor_fi->fid, $donor_fi->filename
- if trace_level();
+ if trace_level() >= 3;
# XXX nested evals not handled yet
warn sprintf "collapse_sibling_evals: nested evals in %s not
handled",
@@ -295,10 +295,10 @@
for my $si (@subs_defined) {
warn sprintf " - moving from fid %d: sub %s\n",
$donor_fi->fid, $si->subname
- if trace_level();
+ if trace_level() >= 4;
$si->_alter_fileinfo($donor_fi, $survivor_fi);
warn sprintf " - moving done\n"
- if trace_level();
+ if trace_level() >= 4;
}
}
@@ -376,7 +376,7 @@
warn sprintf "collapse_sibling_evals: merging %d subs
into %s: %s\n",
scalar @$to_merge, $survivor_subname,
join ", ", map { $_->subname } @$to_merge
- if trace_level();
+ if trace_level() >= 3;
for my $delete_si (@$to_merge) {
my $delete_subname = $delete_si->subname;
=======================================
--- /trunk/lib/Devel/NYTProf/SubInfo.pm Wed Jun 16 15:21:01 2010
+++ /trunk/lib/Devel/NYTProf/SubInfo.pm Wed Jun 16 15:48:43 2010
@@ -179,7 +179,7 @@
warn sprintf "_alter_called_by_fileinfo: %s from fid %d to
fid %d\n",
$self->subname, $remove_fid, $new_fid
- if trace_level();
+ if trace_level() >= 4;
# merge $cb into $new_cb
while ( my ($line, $cb_li) = each %$cb ) {
@@ -208,7 +208,7 @@
warn sprintf "Merging sub %s into %s (%s)\n",
$donor_subname, $self_subname, join(" ", %opts)
- if trace_level();
+ if trace_level() >= 4;
# see also "case NYTP_TAG_SUB_CALLERS:" in
load_profile_data_from_stream()
push @{ $self->meta->{merged_sub_names} }, $donor->subname;
--
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]
