projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 {
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) {
my $reason;
if (!$fatal) {