db_retry: Honour new OSSTEST_DB_ALWAYS_ABORT variable

This is useful for debugging.

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

diff --git a/Osstest.pm b/Osstest.pm
index 226378697327a57cf7b0f05f8bc12a60cc791d79..3377ea399f8cf70ef52a78bad31e73c773250ebd 100644 (file)
--- a/Osstest.pm
+++ b/Osstest.pm
@@ -330,6 +330,8 @@ sub db_retry ($$$;$$) {
                last if $db_retry_stop eq 'abort';
                next;
            }
+            die 'OSSTEST_DB_ALWAYS_ABORT set'
+                if $ENV{'OSSTEST_DB_ALWAYS_ABORT'};
            $committing = 1;
            $dbh->commit();
        };