Revision: 1314 Author: [email protected] Date: Fri Jun 18 10:03:13 2010 Log: Make percentage progress fixed width
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1314 Modified: /trunk/lib/Devel/NYTProf/Reader.pm ======================================= --- /trunk/lib/Devel/NYTProf/Reader.pm Thu Jun 17 07:50:32 2010 +++ /trunk/lib/Devel/NYTProf/Reader.pm Fri Jun 18 10:03:13 2010 @@ -202,7 +202,7 @@ if ($opts{show_progress}) { local $| = 1; ++$progress; - printf "\r %d%% ... ", $progress/@fis*100; + printf "\r %3d%% ... ", $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]
