Revision: 1225
Author: [email protected]
Date: Thu May 20 15:37:04 2010
Log: Tweak trace level. Don't give 'already associated with package' message
if the alternative is an eval.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1225
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Thu May 20 12:01:28 2010
+++ /trunk/NYTProf.xs Thu May 20 15:37:04 2010
@@ -1487,7 +1487,7 @@
/* XXX OP_UNSTACK needs help */
}
- if (trace_level >= 4) {
+ if (trace_level >= 5) {
logwarn("\tleft %u:%u back to %s at %u:%u (b%u s%u) - discounting
next statement%s\n",
prev_last_executed_fid, prev_last_executed_line,
OP_NAME_safe(op),
@@ -3120,7 +3120,10 @@
continue;
}
- if (trace_level >= 3 && strnNE(SvPV_nolen(pkg_filename_sv),
filename, filename_len)) {
+ if (trace_level >= 3
+ && strnNE(SvPV_nolen(pkg_filename_sv), filename, filename_len)
+ && !filename_is_eval(filename, filename_len)
+ ) {
/* eg utf8::SWASHNEW is already associated
with .../utf8.pm not .../utf8_heavy.pl */
logwarn("Package of sub %.*s is already associated with %s
not %.*s\n",
(int)sub_name_len, sub_name,
--
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]
