From 9f2786d99df33ba50021702ddb80f34e0e82a2b5 Mon Sep 17 00:00:00 2001
From: Benjamin Renard <brenard@easter-eggs.com>
Date: Thu, 5 Apr 2018 15:20:23 +0200
Subject: [PATCH] Avoid "Smartmatch is experimental" warning

---
 check_backuppc_du | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/check_backuppc_du b/check_backuppc_du
index 96f10ee..be594a3 100755
--- a/check_backuppc_du
+++ b/check_backuppc_du
@@ -121,7 +121,7 @@ foreach my $hostname ( sort(keys %Status) ) {
 	next if $hostname =~ /^\s*$/;
 	next if $hostname =~ /^ /;
 	next if ( $host && $hostname !~ m/$host/ );
-	next if ( scalar(@hostlist) > 0 && not ($hostname ~~ @hostlist) );
+	next if ( scalar(@hostlist) > 0 && not(grep /^\Q$hostname$/, @hostlist) );
 
 	my %HostStatus = %{$Status{$hostname}};
 	my %host_conf = %{$server->ConfigDataRead($hostname)};