Fix Callback Parms in Update_Link

hollie · Mar 12, 2013 · d7a30e6 · d7a30e6
1 parent 8d2f377
commit d7a30e6
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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;