[Xen-devel] [OSSTEST PATCH 6/9] db_retry: Suppress an "exiting via last" warning

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

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@xxxxxxxxxxxxx>
---
 Osstest.pm |    1 +
 1 file changed, 1 insertion(+)

diff --git a/Osstest.pm b/Osstest.pm
index c77d960..a398b1e 100644
--- 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;
            }
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel