--- 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 {