Revision: 1086 Author: tim.bunce Date: Sat Feb 27 12:12:54 2010 Log: Fix so $cpu1 on entry to foo() is accurate. (Test was failing on OS X with '0.39'>='0.396'. Maybe the * 0.99 for freebsd is no longer needed.)
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1086 Modified: /trunk/t/61-cputime.t ======================================= --- /trunk/t/61-cputime.t Fri Feb 26 08:04:29 2010 +++ /trunk/t/61-cputime.t Sat Feb 27 12:12:54 2010 @@ -93,6 +93,7 @@ } warn sprintf "step %f\t%f\n", $cpu2-$cpu1, time() if $trace; +$cpu1 = $cpu2; # set cpu1 to new current cpu time # consume this much cpu time inside foo() foo(0.4); -- 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]
