X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=installcheck%2FInstallcheck%2FChanger.pm;h=3864868316603a13492cd6372d0f7e54901d47ac;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=00104f037c46cdc61e1ecfeba06b2552e627582b;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/installcheck/Installcheck/Changer.pm b/installcheck/Installcheck/Changer.pm
index 00104f0..3864868 100644
--- a/installcheck/Installcheck/Changer.pm
+++ b/installcheck/Installcheck/Changer.pm
@@ -71,7 +71,7 @@ sub chg_err_like {
 	like($err->{'message'}, $expected, $msg);
     } else {
 	my $ok = 1;
-	for my $key qw( type reason message ) {
+	for my $key (qw( type reason message )) {
 	    if (exists $expected->{$key}) {
 		if (!exists $err->{$key}) {
 		    fail($msg) if ($ok);