Fix 'off by one' error.
This commit is contained in:
Родитель
494dd1ce0b
Коммит
cfc5b38fdc
|
@ -34,8 +34,8 @@ sub last_successful_builds {
|
|||
|
||||
print STDERR "done\n";
|
||||
|
||||
for (my $ii=1; $ii <= $name_count; $ii++) {
|
||||
for (my $tt=1; $tt <= $time_count; $tt++) {
|
||||
for (my $ii=0; $ii <= $name_count; $ii++) {
|
||||
for (my $tt=0; $tt <= $time_count; $tt++) {
|
||||
if (defined($br = $build_table->[$tt][$ii])
|
||||
and $br->{buildstatus} eq 'success') {
|
||||
push @build_records, $br;
|
||||
|
|
|
@ -292,8 +292,8 @@ sub find_build_record {
|
|||
tb_load_data();
|
||||
print STDERR "done\n";
|
||||
|
||||
for (my $ii=1; $ii <= $name_count; $ii++) {
|
||||
for (my $tt=1; $tt <= $time_count; $tt++) {
|
||||
for (my $ii=0; $ii <= $name_count; $ii++) {
|
||||
for (my $tt=0; $tt <= $time_count; $tt++) {
|
||||
if (defined($br = $build_table->[$tt][$ii])
|
||||
and $br->{logfile} eq $log_file) {
|
||||
return $br;
|
||||
|
|
Загрузка…
Ссылка в новой задаче