X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FChanger%2Fdisk.pm;h=3b0636252c59dd0bbddcf891c5a22dda97ce364c;hb=d74dc4d908fcbc1a4ef474edaf51e61ec90eab6b;hp=05e34a72cdc0df51127de8984e18bcb101c28776;hpb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;p=debian%2Famanda

diff --git a/perl/Amanda/Changer/disk.pm b/perl/Amanda/Changer/disk.pm
index 05e34a7..3b06362 100644
--- a/perl/Amanda/Changer/disk.pm
+++ b/perl/Amanda/Changer/disk.pm
@@ -387,4 +387,8 @@ sub do_release {
 	or warn("Could not unlink '$drive/data': $!");
     rmdir("$drive")
 	or warn("Could not rmdir '$drive': $!");
+
+    if (exists $params{'finished_cb'}) {
+	Amanda::MainLoop::call_later($params{'finished_cb'}, undef);
+    }
 }