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.3.2
[debian/amanda]
/
perl
/
Amanda
/
Changer
/
rait.pm
diff --git
a/perl/Amanda/Changer/rait.pm
b/perl/Amanda/Changer/rait.pm
index 26486bc495ce99d5e9c0a92feccb55cf8e2b8e75..d387c841246d8c4e3a763c909594a21746a6d302 100644
(file)
--- a/
perl/Amanda/Changer/rait.pm
+++ b/
perl/Amanda/Changer/rait.pm
@@
-1,4
+1,4
@@
-# Copyright (c) 2009
,2010
Zmanda, Inc. All Rights Reserved.
+# Copyright (c) 2009
-2012
Zmanda, Inc. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
@@
-20,6
+20,7
@@
package Amanda::Changer::rait;
use strict;
use warnings;
use strict;
use warnings;
+use Carp;
use vars qw( @ISA );
@ISA = qw( Amanda::Changer );
use vars qw( @ISA );
@ISA = qw( Amanda::Changer );
@@
-525,7
+526,7
@@
sub _for_each_child {
($params{'oksub'}, $params{'errsub'}, $params{'parent_cb'}, $params{'args'});
if (defined($args)) {
($params{'oksub'}, $params{'errsub'}, $params{'parent_cb'}, $params{'args'});
if (defined($args)) {
-
die
"number of args did not match number of children"
+
confess
"number of args did not match number of children"
unless (@$args == $self->{'num_children'});
} else {
$args = [ ( undef ) x $self->{'num_children'} ];
unless (@$args == $self->{'num_children'});
} else {
$args = [ ( undef ) x $self->{'num_children'} ];