From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 6/9] db_retry: Suppress an "exiting via last" warning Date: Thu, 17 Dec 2015 17:06:05 +0000 Message-ID: <1450371968-27997-6-git-send-email-ian.jackson@eu.citrix.com> References: <1450371968-27997-1-git-send-email-ian.jackson@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from mail6.bemta4.messagelabs.com ([85.158.143.247]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1a9c0T-0005ty-8a for xen-devel@lists.xenproject.org; Thu, 17 Dec 2015 17:06:21 +0000 In-Reply-To: <1450371968-27997-1-git-send-email-ian.jackson@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xenproject.org Cc: Ian Jackson , Ian Campbell List-Id: xen-devel@lists.xenproject.org This warning appears when db_retry_abort is used, since 2b069b6c "Database locking: Perl: Retry all deadlocks in PostgreSQL". Signed-off-by: Ian Jackson --- 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