Revision: 1028
Author: tim.bunce
Date: Thu Jan 21 04:24:04 2010
Log: Fix off-by-one in recent src-missing change
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1028
Modified:
/trunk/lib/Devel/NYTProf/Reader.pm
=======================================
--- /trunk/lib/Devel/NYTProf/Reader.pm Thu Jan 21 04:07:11 2010
+++ /trunk/lib/Devel/NYTProf/Reader.pm Thu Jan 21 04:24:04 2010
@@ -422,7 +422,7 @@
keys %$subs_defined_hash,
keys %stats_by_line
);
- $src_lines->[$_] ||= '' for 1..max(@interesting_lines); # grow
array
+ $src_lines->[$_] ||= '' for 0..max(@interesting_lines)-1; #
grow array
}
my $line_sub = $self->{mk_report_source_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]
