| … | … | ||
|---|---|---|---|
| 68 | 68 | ||
| 69 | sub update_widgets { | 69 | sub update_widgets { |
| 70 | my ($self) = @_; | 70 | my ($self) = @_; |
| 71 | 71 | ||
| 72 | # necessary to avoid cyclic references | 72 | # necessary to avoid cyclic references |
| 73 | Scalar::Util::weaken $self; | 73 | CFPlus::weaken $self; |
| 74 | 74 | ||
| 75 | my $button_cb = sub { | 75 | my $button_cb = sub { |
| 76 | my (undef, $ev, $x, $y) = @_; | 76 | my (undef, $ev, $x, $y) = @_; |
| 77 | 77 | ||
| 78 | my $targ = $::CONN->{player}{tag}; | 78 | my $targ = $::CONN->{player}{tag}; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |