mg-hosts: Call db_readonly_report inside, not outside, db_retry

Newer postgresql prints:
  WARNING:  SET TRANSACTION can only be used in transaction blocks
and it is right.

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

diff --git a/mg-force-push b/mg-force-push
index 09c1894d953bb7d85ce3243a39ccbdf63dcb10f1..1066a300c73dcee0ee237d61da0e84791ba57193 100755 (executable)
--- a/mg-force-push
+++ b/mg-force-push
@@ -62,8 +62,8 @@ END
     my %revuses;
     printf "checking revisions used in %s...\n", $flight;
 
-    db_readonly_report();
     db_retry($dbh_tests, [], sub {
+        db_readonly_report();
         $flt_q->execute($flight);
         my $flt_row = $flt_q->fetchrow_hashref();
         $flt_row->{blessing} eq 'real' or die "$flt_row->{blessing} ?";