… | … | ||
---|---|---|---|
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 |