[OSSTEST PATCH 58/60] sg-report-host-history: Cache report_run_getinfo

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

No logical change.

Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
---
 sg-report-host-history | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sg-report-host-history b/sg-report-host-history
index efe652bb..a814ef37 100755
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -266,7 +266,9 @@ END
 
        print H "<td><a href=\"$url\">$jr->{job}</td>\n";
 
-       my $ri = report_run_getinfo({ %$jr, %$ir });
+       my $ri = cacheable_fn($jr, 'rri', sub {
+            report_run_getinfo({ %$jr, %$ir })
+       });
        print H "<td $ri->{ColourAttr}>$ri->{Content}</td>\n";
 
        my $powers = cacheable_fn($jr, 'b', sub {
-- 
2.11.0