Revision: 1167 Author: tim.bunce Date: Thu Mar 11 14:56:52 2010 Log: Tweak log levels of some messages
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1167 Modified: /trunk/NYTProf.xs ======================================= --- /trunk/NYTProf.xs Wed Mar 10 16:42:21 2010 +++ /trunk/NYTProf.xs Thu Mar 11 14:56:52 2010 @@ -1174,12 +1174,12 @@ last_block_line = last_sub_line; } - if (trace_level >= 6) { + if (trace_level >= 8) { GV *sv = CvGV(cx->blk_sub.cv); logwarn("\tat %d: block %d sub %d for %s %s\n", last_executed_line, last_block_line, last_sub_line, cx_block_type(cx), (sv) ? GvNAME(sv) : ""); - if (trace_level >= 9) + if (trace_level >= 99) sv_dump((SV*)cx->blk_sub.cv); } -- 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]
