bn8/check_backuppc
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Suppress warnings about smartmatch being experimental

Browse source
This commit is contained in:
Benjamin Renard 2018-02-17 18:03:33 +01:00 committed by root
parent 01f8aec193
commit 139190f7ae
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
check_backuppc_du
View file

@ -34,6 +34,10 @@
use strict; use strict;
no utf8; no utf8;
# Suppress warnings about smartmatch being experimental
# Found here: http://blogs.perl.org/users/mike_b/2013/06/a-little-nicer-way-to-use-smartmatch-on-perl-518.html
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
# Nagios # Nagios
use lib "/usr/lib/nagios/plugins"; use lib "/usr/lib/nagios/plugins";
use utils qw(%ERRORS $TIMEOUT); use utils qw(%ERRORS $TIMEOUT);