From 139190f7ae7d861a855b40639df3185e9d63f3d0 Mon Sep 17 00:00:00 2001 From: Benjamin Renard Date: Sat, 17 Feb 2018 18:03:33 +0100 Subject: [PATCH] Suppress warnings about smartmatch being experimental --- check_backuppc_du | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/check_backuppc_du b/check_backuppc_du index 5935101..d89b672 100755 --- a/check_backuppc_du +++ b/check_backuppc_du @@ -34,6 +34,10 @@ use strict; 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 use lib "/usr/lib/nagios/plugins"; use utils qw(%ERRORS $TIMEOUT);