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

Avoid "Smartmatch is experimental" warning

Browse source
This commit is contained in:
Benjamin Renard 2018-04-05 15:20:23 +02:00 committed by root
parent 3715509a13
commit 9f2786d99d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
check_backuppc_du
View file

@ -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)};