Revision: 1408
Author: [email protected]
Date: Fri Jun 3 14:17:20 2011
Log: minor edge case debug tweak for confusing CVs
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1408
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Fri Dec 3 12:27:16 2010
+++ /trunk/NYTProf.xs Fri Jun 3 14:17:20 2011
@@ -2639,8 +2639,10 @@
logwarn("NYTProf is confused about CV %p called as %s
at %s line %d (please report as a bug)\n",
(void*)called_cv, SvPV_nolen(sub_sv),
OutCopFILE(prev_cop), (int)CopLINE(prev_cop));
/* looks like Class::MOP doesn't give the CV GV stash a
name */
- if (trace_level >= 2)
+ if (trace_level >= 2) {
sv_dump((SV*)called_cv); /* coredumps in
Perl_do_gvgv_dump, looks line GvXPVGV is false, presumably on a Class::MOP
wierdo sub */
+ sv_dump((SV*)gv);
+ }
}
}
--
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]
