Revision: 1203 Author: tim.bunce Date: Wed Apr 28 10:00:26 2010 Log: Avoid dying when merging evals if any have no line_time_data.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1203 Modified: /trunk/lib/Devel/NYTProf/FileInfo.pm ======================================= --- /trunk/lib/Devel/NYTProf/FileInfo.pm Mon Apr 26 05:45:51 2010 +++ /trunk/lib/Devel/NYTProf/FileInfo.pm Wed Apr 28 10:00:26 2010 @@ -305,7 +305,7 @@ } # copy line time data - my $d_ltd = $donor_fi->line_time_data; # XXX line only + my $d_ltd = $donor_fi->line_time_data || []; # XXX line only for my $line (0...@$d_ltd-1) { my $d_tld_l = $d_ltd->[$line] or next; my $s_tld_l = $s_ltd->[$line] ||= []; -- 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]
