X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=perl%2FAmanda%2FChanger%2Frait.pm;fp=perl%2FAmanda%2FChanger%2Frait.pm;h=d387c841246d8c4e3a763c909594a21746a6d302;hb=949b8910a5e23c4285d0b1aedacfc82a14dc97a5;hp=26486bc495ce99d5e9c0a92feccb55cf8e2b8e75;hpb=c6f0a88c567f8536c498f554285aed1f8150da18;p=debian%2Famanda

diff --git a/perl/Amanda/Changer/rait.pm b/perl/Amanda/Changer/rait.pm
index 26486bc..d387c84 100644
--- 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
@@ -20,6 +20,7 @@ package Amanda::Changer::rait;
 
 use strict;
 use warnings;
+use Carp;
 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)) {
-	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'} ];