diff -r 4bdda1d2bd88 -r 3592ab3a8ce7 plugins/check_amanda-client --- a/plugins/check_amanda-client Mon Mar 30 14:08:50 2015 +0200 +++ b/plugins/check_amanda-client Thu Jun 29 16:26:36 2017 +0200 @@ -13,7 +13,7 @@ use Pod::Usage; use Const::Fast; use if $ENV{DEBUG} => 'Smart::Comments'; -use if $^V >= v5.18 => (experimental => qw/smartmatch lexical_topic/); +use if $^V >= v5.18 => (experimental => qw/smartmatch/); const my $NAME => 'AMANDA-CLIENT'; const my $USER => 'backup'; @@ -201,19 +201,19 @@ #The check is finished my $conf = shift; - my $_ = qx(amdump_client --config '$conf' check 2>&1); + my $o = qx(amdump_client --config '$conf' check 2>&1); - /^config:\s+ + $o =~ /^config:\s+ (BUSY Amanda is busy, retry later)/smx and WARNING "$1\n"; - /^config:\s+$conf\n + $o =~ /^config:\s+$conf\n CHECKING\n .*\n Client.check:.1.host.checked.in.\d+\.\d+.seconds\.\s+0.problems.found\.\n .*\n The.check.is.finished$ - /smx or UNKNOWN "unexpected output from check:\n$_"; + /smx or UNKNOWN "unexpected output from check:\n$o"; } sub amchecks {