Revision: 1299 Author: [email protected] Date: Wed Jun 16 15:17:19 2010 Log: Fix (silly) performance problem in $fi->evals_by_line
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1299 Modified: /trunk/lib/Devel/NYTProf/FileInfo.pm ======================================= --- /trunk/lib/Devel/NYTProf/FileInfo.pm Tue Jun 8 15:30:13 2010 +++ /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Jun 16 15:17:19 2010 @@ -175,9 +175,7 @@ # { line => { fid_of_eval_at_line => $fi, ... } } my %evals_by_line; - my $fid = $self->fid; - for my $fi ($self->profile->all_fileinfos) { - next unless (($fi->eval_fid || 0) == $fid); + for my $fi ($self->has_evals) { $evals_by_line{ $fi->eval_line }->{ $fi->fid } = $fi; } -- 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]
