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}) {
next if ($type & $event_mask) == $event_mask;
$cb->{$type}->();
delete $cb->{$type};
}
# Trigger _error callback, if set