timing traces: sg-check-tested: Add prints of (show_abs_time time)

More tools to see where it is faffing too much.

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

diff --git a/sg-check-tested b/sg-check-tested
index 7946e4b56ed4c4304386e505563c53460d028b54..39c0d0c2fb708d3b7a963b90b3d0bc62ce4612ed 100755 (executable)
--- a/sg-check-tested
+++ b/sg-check-tested
@@ -148,7 +148,7 @@ sub prepare_execute ($@) {
     my ($qtxt, @vars) = @_;
     print DEBUG "\n==========\n", $qtxt,
                 "\n----------\n", (join ' | ', @vars),
-                "\n==========\n";
+                "\n========== ".(show_abs_time time)."\n";
     my $q= $dbh_tests->prepare($qtxt);
     $q->execute(@vars);
     return $q;
@@ -169,7 +169,7 @@ sub search () {
     while (my $row= $q->fetchrow_hashref()) {
        my $flight= $row->{flight};
        if (!defined $prrev) {
-           print DEBUG "==========YES\n";
+           print DEBUG "========== ".(show_abs_time time)." YES\n";
            output $flight,"\n";
            return;
        } else {
@@ -195,7 +195,7 @@ END
            my $row1= $valsq->fetchrow_hashref();
            next unless defined $row1->{val} && length $row1->{val};
            my $val1 = massage($row1->{val});
-           print DEBUG "got $val1\n";
+           print DEBUG (show_abs_time time)." got $val1\n";
            while (my $row2 = $valsq->fetchrow_hashref()) {
                my $val2 = massage($row2->{val});
                next if $val2 eq $val1;
@@ -212,7 +212,7 @@ END
            return;
        }
     }
-    print DEBUG "==========NO\n";
+    print DEBUG "========== ".(show_abs_time time)." NO\n";
 }
 
 db_retry($dbh_tests, [], sub {