diff --git a/webtools/tinderbox/showbuilds.cgi b/webtools/tinderbox/showbuilds.cgi index f166697e539b..962130697acf 100755 --- a/webtools/tinderbox/showbuilds.cgi +++ b/webtools/tinderbox/showbuilds.cgi @@ -409,18 +409,15 @@ BEGIN { # Scrape data if (defined $td->{scrape}{$logfile}) { - my ($scrape_data) + my (@scrape_data) = @{ $td->{scrape}{$logfile} }; # ex: Tp:5.45s - print sprintf "
$scrape_data"; + my $i; + foreach $i (@scrape_data) { + print "
$i"; + } } - # Scrape data - #if (defined $td->{scrape}{$logfile}) { - # my @scrape_data = @{$td->{scrape}{$logfile}}; - # print "
@scrape_data[0],@scrape_data[1]"; - #} - # Warnings if (defined $td->{warnings}{$logfile}) { my ($warning_count) = $td->{warnings}{$logfile}; diff --git a/webtools/tinderbox/tbglobals.pl b/webtools/tinderbox/tbglobals.pl index cf4b0e08efe1..4e98ee379e7f 100755 --- a/webtools/tinderbox/tbglobals.pl +++ b/webtools/tinderbox/tbglobals.pl @@ -482,9 +482,11 @@ sub load_scrape { open(BLOATLOG, "<$treedata->{name}/scrape.dat"); while () { chomp; - my ($logfile, $scrape_data) = split /\|/; + my @list = split /\|/; + my $logfile = @list[0]; + shift(@list); - $scrape->{$logfile} = [ $scrape_data ]; + $scrape->{$logfile} = [ @list ]; } return $scrape; }