From e402435dc82e6c5a7c3ed4441dbfdbdca195b761 Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Tue, 29 Aug 2017 16:42:09 +0200
Subject: [PATCH] btrbk: treat deprecated warnings as non-fatal

Despite FATAL warnings are discouraged in perl and may break forward
compatibility [1], we still use it as btrbk is usually run as root and
we really want perl to die on programmatic errors.

  [1] "perldoc warnings"
---
 btrbk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/btrbk b/btrbk
index 25c9713..0cd6995 100755
--- a/btrbk
+++ b/btrbk
@@ -26,7 +26,7 @@
 # ---------------------------------------------------------------------
 
 use strict;
-use warnings FATAL => qw( all );
+use warnings FATAL => qw( all ), NONFATAL => qw( deprecated );
 
 use Carp qw(confess);
 use Getopt::Long qw(GetOptions);