Revision: 946 Author: tim.bunce Date: Thu Dec 10 07:39:11 2009 Log: Fixed for perl's t/op/caller.t
http://code.google.com/p/perl-devel-nytprof/source/detail?r=946 Modified: /trunk/NYTProf.xs ======================================= --- /trunk/NYTProf.xs Thu Dec 10 07:29:00 2009 +++ /trunk/NYTProf.xs Thu Dec 10 07:39:11 2009 @@ -2489,7 +2489,7 @@ return NULL; break; } - if (cv && !*subname_gv_ptr && CvGV(cv)) { + if (cv && !*subname_gv_ptr && CvGV(cv) && isGV_with_GP(CvGV(cv))) { *subname_gv_ptr = CvGV(cv); } return cv; @@ -2916,8 +2916,8 @@ stash_name = HvNAME(GvSTASH(gv)); sv_setpv(subr_entry->called_subnam_sv, GvNAME(gv)); } - else if (trace_level >= 0) { - logwarn("I'm confused about CV %p called as %s at %s line %d (please report as a bug)\n", + else if (trace_level >= 1) { + 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) -- 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]
