Remove old smartmatch warning workarround

This commit is contained in:
Benjamin Renard 2018-04-05 15:23:18 +02:00 committed by root
parent 9f2786d99d
commit d138794924

View file

@ -31,10 +31,6 @@
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);