history reporting: Print debug for cache misses

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

diff --git a/Osstest/HistoryReport.pm b/Osstest/HistoryReport.pm
index b576c02aceaaceb0091a2b302e6600389e3f7d81..b593f207a68b94a57a7ee8cd54559558eb2b546a 100644 (file)
--- a/Osstest/HistoryReport.pm
+++ b/Osstest/HistoryReport.pm
@@ -155,6 +155,9 @@ sub cache_row_lookup_prep ($) {
     if ($cacherow) {
        $$jrr = $cacherow;
        $rows_hit++;
+    } else {
+       print ::DEBUG "CACHE MISS ",
+           (join " ", map { $$jrr->{$_} } @key_cols), "\n";
     }
 }