X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FChanger%2Fsingle.pm;h=daad4a5847e54dec3f79d36a241a10ff57332a62;hb=refs%2Ftags%2Fupstream%2F2.6.1p1;hp=33bf2913501f02e13abae9ba53dee4799e0a2f6b;hpb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;p=debian%2Famanda

diff --git a/perl/Amanda/Changer/single.pm b/perl/Amanda/Changer/single.pm
index 33bf291..daad4a5 100644
--- 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);
+    }
 }