Imported Upstream version 2.6.1p2

[debian/amanda] / changer-src / chg-glue.pl

diff --git a/changer-src/chg-glue.pl b/changer-src/chg-glue.pl
index 62c9e98f6765b4f6f621ad5ebe4221915da00024..a0aeaebd645425e98fd633dbed89a3585984dbbc 100644 (file)
--- a/changer-src/chg-glue.pl
+++ b/changer-src/chg-glue.pl
@@ -305,6 +305,9 @@ Amanda::Util::finish_setup($RUNNING_AS_DUMPUSER);
 $| = 1;
 
 $chg = Amanda::Changer->new();
+if ($chg->isa("Amanda::Changer::Error")) {
+    die("Error creating changer: $chg");
+}
 
 Amanda::MainLoop::call_later(\&getcmd);
 Amanda::MainLoop::run();