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;
}