Imported Upstream version 2.6.1p1

[debian/amanda] / perl / Amanda / Changer / single.pm

diff --git a/perl/Amanda/Changer/single.pm b/perl/Amanda/Changer/single.pm
index 33bf2913501f02e13abae9ba53dee4799e0a2f6b..daad4a5847e54dec3f79d36a241a10ff57332a62 100644 (file)
--- a/perl/Amanda/Changer/single.pm
+++ b/perl/Amanda/Changer/single.pm
@@ -122,4 +122,8 @@ sub do_release {
     my %params = @_;
 
     $self->{'chg'}->{'reserved'} = 0;
+
+    if (exists $params{'finished_cb'}) {
+       Amanda::MainLoop::call_later($params{'finished_cb'}, undef);
+    }
 }