projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge tag 'upstream/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;
}
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) {
my $run_cb = sub {
my ($exitval, $slot, $rest) = @_;
if ($exitval == 0) {