[perl-devel-nytprof] r1408 committed - minor edge case debug tweak for confusing CVs

[perl-deve...@googlecode.com]

Revision: 1408
Author: tim....@gmail.com
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);
+ }
}
}