Imported Upstream version 2.6.1p1

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

diff --git a/perl/Amanda/Changer/disk.pm b/perl/Amanda/Changer/disk.pm
index 05e34a72cdc0df51127de8984e18bcb101c28776..3b0636252c59dd0bbddcf891c5a22dda97ce364c 100644 (file)
--- 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);
+    }
 }