Experimental feature lexical_topic has been removed from perl in version 5.23.4
authorMatthias Förste <foerste@schlittermann.de>
Thu, 29 Jun 2017 16:26:36 +0200
changeset 66 3592ab3a8ce7
parent 65 4bdda1d2bd88
child 67 5ebf9e866aba
Experimental feature lexical_topic has been removed from perl in version 5.23.4
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 {