X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FChanger.pm;h=4135986c9d3f240e10f7683d488e236bbcffd21b;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hp=a8891fb5714092ffe5b2e9b0e5c723bc5d0d9789;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e;p=debian%2Famanda

diff --git a/perl/Amanda/Changer.pm b/perl/Amanda/Changer.pm
index a8891fb..4135986 100644
--- 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) {