diff --git a/lib/Insteon/AllLinkDatabase.pm b/lib/Insteon/AllLinkDatabase.pm index 65d389318..786468de6 100755 --- a/lib/Insteon/AllLinkDatabase.pm +++ b/lib/Insteon/AllLinkDatabase.pm @@ -989,6 +989,11 @@ sub add_link sub update_link { my ($self, %link_parms) = @_; + if (@_[1] eq 'ok' or @_[1] eq 'fail'){ + %link_parms = %{$self->{callback_parms}}; + $$self{callback_parms} = undef; + $link_parms{aldb_check} = @_[1]; + } my $insteon_object = $link_parms{object}; my $group = $link_parms{group}; my $is_controller = ($link_parms{is_controller}) ? 1 : 0;