| … | … | ||
|---|---|---|---|
| 96 | delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog; | 96 | delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog; |
| 97 | 97 | ||
| 98 | 0 | 98 | 0 |
| 99 | } | 99 | } |
| 100 | 100 | ||
| 101 | sub on_unload { | ||
| 102 | while (my ($token, $dialog) = each %dialog) { | ||
| 103 | $dialog->{ob}->contr->send ("ext $token perl_reload"); | ||
| 104 | } | ||
| 101 | 105 | ||
| 106 | %dialog = (); | ||
| 107 | |||
| 108 | 0 | ||
| 109 | } | ||
| 110 | |||
| 111 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |