Revision: 1217 Author: [email protected] Date: Thu May 6 16:09:22 2010 Log: #ifdef'd CXt_LOOP and added a comment. Removed a stray debug warn.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1217 Modified: /trunk/NYTProf.xs ======================================= --- /trunk/NYTProf.xs Thu May 6 15:39:37 2010 +++ /trunk/NYTProf.xs Thu May 6 16:09:22 2010 @@ -1085,12 +1085,13 @@ OutCopFILE((COP*)o)); return (COP*)o; } - if (CxTYPE(cx) == CXt_LOOP) { +#ifdef CXt_LOOP + /* e.g. "eval $_ for @ary" */ + if (CxTYPE(cx) == CXt_LOOP) return NULL; - } +#endif /* should never get here but we do */ if (trace_level >= trace || 1) { - warn("not a cop"); logwarn("\tstart_cop_of_context %s op '%s' isn't a cop\n", cx_block_type(cx), OP_NAME(o)); if (trace_level > trace) -- 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]
