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"
pull/204/head
Axel Burri 2017-08-29 16:42:09 +02:00
parent 62fad0e326
commit e402435dc8
1 changed files with 1 additions and 1 deletions

2
btrbk
View File

@ -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);