| … | … | ||
|---|---|---|---|
| 287 | 287 | ||
| 288 | $self | 288 | $self |
| 289 | } | 289 | } |
| 290 | 290 | ||
| 291 | sub cleanup { | 291 | sub cleanup { |
| 292 | $_[0][3] = ""; | ||
| 293 | $_[0][4] = ""; | ||
| 294 | (delete $_[0][5])->cancel if $_[0][5]; | 292 | $_[0][5]->cancel if $_[0][5]; |
| 295 | (delete $_[0][6])->cancel if $_[0][6]; | 293 | $_[0][6]->cancel if $_[0][6]; |
| 294 | @{$_[0]} = (); | ||
| 296 | } | 295 | } |
| 297 | 296 | ||
| 298 | sub OPEN { | 297 | sub OPEN { |
| 299 | &cleanup; | 298 | &cleanup; |
| 300 | my $self = shift; | 299 | my $self = shift; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |