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
/
single.pm
diff --git
a/perl/Amanda/Changer/single.pm
b/perl/Amanda/Changer/single.pm
index 75e0469f8d88491d358db2db8315c06562ebec48..06a15e2dd89573ce47e415a354d867eca25733cc 100644
(file)
--- a/
perl/Amanda/Changer/single.pm
+++ b/
perl/Amanda/Changer/single.pm
@@
-1,4
+1,4
@@
-# Copyright (c) 2008
,2009,2010
Zmanda, Inc. All Rights Reserved.
+# Copyright (c) 2008
-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::single;
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 );
@@
-77,7
+78,7
@@
sub load {
return if $self->check_error($params{'res_cb'});
return if $self->check_error($params{'res_cb'});
-
die
"no res_cb supplied" unless (exists $params{'res_cb'});
+
confess
"no res_cb supplied" unless (exists $params{'res_cb'});
if ($self->{'reserved'}) {
return $self->make_error("failed", $params{'res_cb'},
if ($self->{'reserved'}) {
return $self->make_error("failed", $params{'res_cb'},