Bugfix: Also delete callbacks which are triggered due to an error

This commit is contained in:
Michael Stapelberg 2012-01-21 21:59:12 +00:00
parent ead1557468
commit 3a9024de63
1 changed files with 1 additions and 0 deletions

View File

@ -147,6 +147,7 @@ sub connect {
for my $type (keys %{$cb}) { for my $type (keys %{$cb}) {
next if ($type & $event_mask) == $event_mask; next if ($type & $event_mask) == $event_mask;
$cb->{$type}->(); $cb->{$type}->();
delete $cb->{$type};
} }
# Trigger _error callback, if set # Trigger _error callback, if set