| … | … | ||
|---|---|---|---|
| 238 | } | 238 | } |
| 239 | 239 | ||
| 240 | sub cleanup { | 240 | sub cleanup { |
| 241 | $_[0][3] = ""; | 241 | $_[0][3] = ""; |
| 242 | $_[0][4] = ""; | 242 | $_[0][4] = ""; |
| 243 | (delete $_[0][5])->cancel if $_[0][5]; | ||
| 244 | (delete $_[0][6])->cancel if $_[0][6]; | ||
| 243 | } | 245 | } |
| 244 | 246 | ||
| 245 | sub OPEN { | 247 | sub OPEN { |
| 246 | &cleanup; | 248 | &cleanup; |
| 247 | my $self = shift; | 249 | my $self = shift; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |