Revision: 1305
Author: [email protected]
Date: Wed Jun 16 16:02:00 2010
Log: More trace level tweaking
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1305
Modified:
/trunk/lib/Devel/NYTProf/Data.pm
/trunk/lib/Devel/NYTProf/FileInfo.pm
=======================================
--- /trunk/lib/Devel/NYTProf/Data.pm Wed Jun 16 15:46:51 2010
+++ /trunk/lib/Devel/NYTProf/Data.pm Wed Jun 16 16:02:00 2010
@@ -159,7 +159,7 @@
push @{$src_keyed{$key}}, $fi;
}
- if (trace_level() >= 1) {
+ if (trace_level() >= 2) {
my @subs = map { $_->subs_defined } @$siblings;
my @evals = map { $_->has_evals(0) } @$siblings;
warn sprintf "%d:%d: has %d sibling evals (subs %d, evals %d,
keys %d) in %s; fids: %s\n",
=======================================
--- /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Jun 16 15:48:43 2010
+++ /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Jun 16 16:02:00 2010
@@ -403,8 +403,8 @@
}
}
- warn sprintf "collapse_sibling_evals done\n"
- if trace_level();
+ warn sprintf "collapse_sibling_evals done
for ".$survivor_fi->filename."\n"
+ if trace_level() >= 2;
return $survivor_fi;
}
--
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]
