Revision: 944 Author: tim.bunce Date: Thu Dec 10 06:38:44 2009 Log: Fixed "Assertion failed: (isGV_with_GP(_gvstash))" from perl's t/op/caller.t and t/op/ref.t
http://code.google.com/p/perl-devel-nytprof/source/detail?r=944 Modified: /trunk/NYTProf.xs ======================================= --- /trunk/NYTProf.xs Thu Dec 10 06:36:30 2009 +++ /trunk/NYTProf.xs Thu Dec 10 06:38:44 2009 @@ -2475,7 +2475,7 @@ cv = (CV*)sv; break; case SVt_PVGV: - if (!(cv = GvCVu((GV*)sv))) + if (!(isGV_with_GP(sv) && (cv = GvCVu((GV*)sv)))) cv = sv_2cv(sv, &stash, subname_gv_ptr, FALSE); if (!cv) /* would autoload in this situation */ return NULL; -- 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]
