Imported Upstream version 3.3.1

[debian/amanda] / installcheck / Installcheck / Changer.pm

diff --git a/installcheck/Installcheck/Changer.pm b/installcheck/Installcheck/Changer.pm
index 00104f037c46cdc61e1ecfeba06b2552e627582b..3864868316603a13492cd6372d0f7e54901d47ac 100644 (file)
--- 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);