Imported Upstream version 3.3.3

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

diff --git a/perl/Amanda/Changer/compat.pm b/perl/Amanda/Changer/compat.pm
index c57417b62a049182f1c06b9c79d5b70251dd3572..caa3a1a7d8b84e76b38e0ff74d944fdd0bc0a5a9 100644 (file)
--- a/perl/Amanda/Changer/compat.pm
+++ b/perl/Amanda/Changer/compat.pm
@@ -1,8 +1,9 @@
-# Copyright (c) 2008, 2009, 2010 Zmanda, Inc.  All Rights Reserved.
+# Copyright (c) 2008-2012 Zmanda, Inc.  All Rights Reserved.
 #
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License version 2 as published
-# by the Free Software Foundation.
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
@@ -689,6 +690,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) {