db_retry: Suppress an "exiting via last" warning

This warning appears when db_retry_abort is used, since 2b069b6c
"Database locking: Perl: Retry all deadlocks in PostgreSQL".

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>

diff --git a/Osstest.pm b/Osstest.pm
index 6591e1a253602337f21d2be6aa0f68ee70e1d278..9ff86ab2650a716c5087dd5c6c6469b428cd5262 100644 (file)
--- a/Osstest.pm
+++ b/Osstest.pm
@@ -299,6 +299,7 @@ sub db_retry ($$$;$$) {
            $r= &$body;
            if ($db_retry_stop) {
                $dbh->rollback();
+               no warnings qw(exiting);
                last if $db_retry_stop eq 'abort';
                next;
            }