mirror of https://github.com/digint/btrbk
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
parent
62fad0e326
commit
e402435dc8
2
btrbk
2
btrbk
|
@ -26,7 +26,7 @@
|
||||||
# ---------------------------------------------------------------------
|
# ---------------------------------------------------------------------
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings FATAL => qw( all );
|
use warnings FATAL => qw( all ), NONFATAL => qw( deprecated );
|
||||||
|
|
||||||
use Carp qw(confess);
|
use Carp qw(confess);
|
||||||
use Getopt::Long qw(GetOptions);
|
use Getopt::Long qw(GetOptions);
|
||||||
|
|
Loading…
Reference in New Issue