sg-check-tested: Use database transaction

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

diff --git a/sg-check-tested b/sg-check-tested
index 8f2a2640890a7eae56abd47a68e9328e3b3bdb99..d13e1b4948e7d61c5f731d0a8b72be0fb2a43ed7 100755 (executable)
--- a/sg-check-tested
+++ b/sg-check-tested
@@ -151,8 +151,10 @@ sub prepare_execute ($@) {
 
 sub massage ($) { local ($_) = @_; s/^\d+\://; $_; }
 
+our $output;
+
 sub output {
-    print @_ or die $!;
+    $output .= $_ foreach @_;
 }
 
 sub search () {
@@ -208,6 +210,12 @@ END
     print DEBUG "==========NO\n";
 }
 
-search();
+db_retry($dbh_tests, [], sub {
+    db_readonly_report();
+    $output= '';
+    search();
+});
+
+print $output or die $!;
 
 exit 0;