| … | … | ||
|---|---|---|---|
| 300 | undef $self->[3]; | 300 | undef $self->[3]; |
| 301 | # invoke run callback | 301 | # invoke run callback |
| 302 | $self->[0]->($self->[1]) if $self->[0]; | 302 | $self->[0]->($self->[1]) if $self->[0]; |
| 303 | } | 303 | } |
| 304 | }; | 304 | }; |
| 305 | |||
| 306 | () # make sure we don't leak the watcher | ||
| 305 | } | 307 | } |
| 306 | 308 | ||
| 307 | sub _new { | 309 | sub _new { |
| 308 | my ($self, $fh) = @_; | 310 | my ($self, $fh) = @_; |
| 309 | 311 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |