Bugfix: Also delete callbacks which are triggered due to an error
This commit is contained in:
parent
ead1557468
commit
3a9024de63
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue