… | … | ||
---|---|---|---|
54 | 54 | ||
55 | sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO# | 55 | sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO# |
56 | 56 | ||
57 | sub part { | 57 | sub part { |
58 | my ($self) = @_; | 58 | my ($self) = @_; |
59 | |||
60 | $self->hide; | ||
59 | $self->SUPER::part; | 61 | $self->SUPER::part; |
60 | |||
61 | $self->hide_all; | ||
62 | } | 62 | } |
63 | 63 | ||
64 | sub inject_msg_room { | 64 | sub inject_msg_room { |
65 | my ($self, $msg) = @_; | 65 | my ($self, $msg) = @_; |
66 | 66 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |