From dc50a8b22ebfb3ad2068ce07f49f16a4af517147 Mon Sep 17 00:00:00 2001 From: "kestes%walrus.com" Date: Tue, 7 May 2002 20:34:45 +0000 Subject: [PATCH] clean up scope warning. Fix the event_rec to be more like tinderbox1. --- webtools/tinderbox2/src/lib/TinderDB/Build.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/webtools/tinderbox2/src/lib/TinderDB/Build.pm b/webtools/tinderbox2/src/lib/TinderDB/Build.pm index 518348600f6..f20af4c8ab7 100755 --- a/webtools/tinderbox2/src/lib/TinderDB/Build.pm +++ b/webtools/tinderbox2/src/lib/TinderDB/Build.pm @@ -7,8 +7,8 @@ # the build was and display a link to the build log. -# $Revision: 1.50 $ -# $Date: 2002-05-06 22:08:41 $ +# $Revision: 1.51 $ +# $Date: 2002-05-07 20:34:45 $ # $Author: kestes%walrus.com $ # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/TinderDB/Build.pm,v $ # $Name: $ @@ -320,7 +320,7 @@ sub gettree_header { # 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) { my $recent_success = undef; @@ -529,9 +529,12 @@ sub event_times_vec { my ($num_recs) = $#{ $DATABASE{$tree}{$buildname}{'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]; push @times, $rec->{'starttime'}; - push @times, $rec->{'endtime'}; } }