Merge pull request #6 from krkeegan/fix_update_link

Fix Callback Parms in Update_Link
hollie · Mar 17, 2013 · 1d432d7 · 1d432d7
2 parents 8d2f377 + d7a30e6
commit 1d432d7
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;