sg-report-job-history: Cache report_run_getinfo

No logical change.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/sg-report-job-history b/sg-report-job-history
index 2cac123bb684535790a710f656219383c68f5c43..5d2a7e158d0c025eb2236cebdbccc900483f72a0 100755 (executable)
--- a/sg-report-job-history
+++ b/sg-report-job-history
@@ -159,7 +159,7 @@ END
 
     while (my $f= $flightsq->fetchrow_hashref()) {
        cache_row_lookup_prep(\$f);
-        my $ri= report_run_getinfo($f);
+        my $ri= cacheable_fn($f, 'rri', sub { report_run_getinfo($f) });
 
        $ri->{Hosts} = cacheable_fn($f, 'h', sub {
             my %hosts;