Imported Upstream version 3.2.0

[debian/amanda] / perl / Amanda / Changer.pm

diff --git a/perl/Amanda/Changer.pm b/perl/Amanda/Changer.pm
index a8891fb5714092ffe5b2e9b0e5c723bc5d0d9789..4135986c9d3f240e10f7683d488e236bbcffd21b 100644 (file)
--- a/perl/Amanda/Changer.pm
+++ b/perl/Amanda/Changer.pm
@@ -1032,7 +1032,7 @@ sub make_combined_error {
            reason => $err->{'reason'},
            message => $suberrors->[0][0] . ": " . $err->{'message'});
     } else {
-       my $fatal = $classmeth or grep { $err->[1]{'fatal'} } @$suberrors;
+       my $fatal = $classmeth or grep { $_->[1]{'fatal'} } @$suberrors;
 
        my $reason;
        if (!$fatal) {