Imported Upstream version 3.3.1

[debian/amanda] / perl / Amanda / Taper / Controller.pm

diff --git a/perl/Amanda/Taper/Controller.pm b/perl/Amanda/Taper/Controller.pm
index 1cf014187f7907a3232c5a410011405dcf4e5751..f6c839f66da731da28fa5369408588b1ff02e4ca 100644 (file)
--- a/perl/Amanda/Taper/Controller.pm
+++ b/perl/Amanda/Taper/Controller.pm
@@ -104,7 +104,7 @@ sub start {
        } else {
            $msg = $params{'error'};
        }
-       log_add($L_ERROR, $msg);
+       log_add($L_ERROR, "$msg");
        print STDERR "$msg\n";
        $self->{'proto'}->send(Amanda::Taper::Protocol::BAD_COMMAND,
            message => $msg);
@@ -265,6 +265,14 @@ sub msg_FAILED {
     $worker->FAILED(@_);
 }
 
+sub msg_CLOSE_VOLUME {
+    my $self = shift;
+    my ($msgtype, %params) = @_;
+
+    my $worker = $self->{'worker'}->{$params{'worker_name'}};
+    $worker->CLOSE_VOLUME(@_);
+}
+
 sub msg_TAKE_SCRIBE_FROM {
     my $self = shift;
     my ($msgtype, %params) = @_;