Imported Upstream version 3.3.1

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

diff --git a/perl/Amanda/Changer/compat.pm b/perl/Amanda/Changer/compat.pm
index c57417b62a049182f1c06b9c79d5b70251dd3572..fccc22602bff588c2c8b8592ecd7d4bb193d9a74 100644 (file)
--- a/perl/Amanda/Changer/compat.pm
+++ b/perl/Amanda/Changer/compat.pm
@@ -689,6 +689,11 @@ sub set_label {
         return;
     }
 
+    if (!defined $params{'label'}) {
+        $params{'finished_cb'}->(undef) if $params{'finished_cb'};
+        return;
+    }
+
     my $run_cb = sub {
        my ($exitval, $slot, $rest) = @_;
        if ($exitval == 0) {