Revision: 1309 Author: [email protected] Date: Thu Jun 17 07:50:32 2010 Log: Use simpler scheme for progres indication (CR instead of BS).
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1309 Modified: /trunk/lib/Devel/NYTProf/Reader.pm ======================================= --- /trunk/lib/Devel/NYTProf/Reader.pm Wed Jun 16 16:13:04 2010 +++ /trunk/lib/Devel/NYTProf/Reader.pm Thu Jun 17 07:50:32 2010 @@ -202,8 +202,7 @@ if ($opts{show_progress}) { local $| = 1; ++$progress; - print ("\b" x 20); - printf " %d%% ...", $progress/@fis*100; + printf "\r %d%% ... ", $progress/@fis*100; } my $meta = $fi->meta; -- 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]
