clean up scope warning. Fix the event_rec to be more like tinderbox1.

This commit is contained in:
kestes%walrus.com 2002-05-07 20:34:45 +00:00
Родитель 64a0c099f1
Коммит dc50a8b22e
1 изменённых файлов: 7 добавлений и 4 удалений

Просмотреть файл

@ -7,8 +7,8 @@
# the build was and display a link to the build log. # the build was and display a link to the build log.
# $Revision: 1.50 $ # $Revision: 1.51 $
# $Date: 2002-05-06 22:08:41 $ # $Date: 2002-05-07 20:34:45 $
# $Author: kestes%walrus.com $ # $Author: kestes%walrus.com $
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/TinderDB/Build.pm,v $ # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/TinderDB/Build.pm,v $
# $Name: $ # $Name: $
@ -320,7 +320,7 @@ sub gettree_header {
# find our best guess as to when the tree was last good. # find our best guess as to when the tree was last good.
my (@build_names) = build_names($tree); (@build_names) = build_names($tree);
foreach $buildname (@build_names) { foreach $buildname (@build_names) {
my $recent_success = undef; my $recent_success = undef;
@ -529,9 +529,12 @@ sub event_times_vec {
my ($num_recs) = $#{ $DATABASE{$tree}{$buildname}{'recs'} }; my ($num_recs) = $#{ $DATABASE{$tree}{$buildname}{'recs'} };
foreach $i (0 .. $num_recs) { foreach $i (0 .. $num_recs) {
# By convention we only show the start times since people
# are only interested in what made it into builds. Do not
# also push the $rec->{'endtime'};
my $rec = $DATABASE{$tree}{$buildname}{'recs'}[$i]; my $rec = $DATABASE{$tree}{$buildname}{'recs'}[$i];
push @times, $rec->{'starttime'}; push @times, $rec->{'starttime'};
push @times, $rec->{'endtime'};
} }
} }