timeouts: Print slightly better message

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

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 33081937b9571a921cf1122475ce3ad5e4d447cb..6ca8076fabd3b4a0ff28aa468fdc4b44dcba7a84 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -339,8 +339,9 @@ sub target_adjust_timeout ($$) {
        my ($factor, $what) = @_;
        return unless defined $factor;
        return if $factor==1;
-       logm("(adjusting timeout by factor $factor, from $what)");
        $$timeoutref *= $factor;
+       logm("(adjusting timeout by factor $factor to $$timeoutref,".
+             " due to $what)");
     };
     if ($ho->{Guest}) {
        my $context = $ho->{TimeoutContext} // 'general';