| … | … | ||
|---|---|---|---|
| 75 | my ($self) = @_; | 75 | my ($self) = @_; |
| 76 | 76 | ||
| 77 | remove Glib::Source delete $self->{source} if $self->{source}; | 77 | remove Glib::Source delete $self->{source} if $self->{source}; |
| 78 | # need to undef $cb because we hold references to it | 78 | # need to undef $cb because we hold references to it |
| 79 | $self->{cb} = undef; | 79 | $self->{cb} = undef; |
| 80 | %$self = (); | ||
| 81 | } | 80 | } |
| 82 | 81 | ||
| 83 | sub one_event { | 82 | sub one_event { |
| 84 | $maincontext->iteration (1); | 83 | $maincontext->iteration (1); |
| 85 | } | 84 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |