| … | … | ||
|---|---|---|---|
| 338 | sub hide { | 338 | sub hide { |
| 339 | my ($self) = @_; | 339 | my ($self) = @_; |
| 340 | 340 | ||
| 341 | $self->set_invisible; | 341 | $self->set_invisible; |
| 342 | 342 | ||
| 343 | # extra $parent copy for 5.8.8+ bug workaround | ||
| 344 | # (otherwise $_[0] in remove gets freed | ||
| 345 | if (my $parent = $self->{parent}) { | ||
| 343 | $self->{parent}->remove ($self) | 346 | $parent->remove ($self); |
| 344 | if $self->{parent}; | 347 | } |
| 345 | } | 348 | } |
| 346 | 349 | ||
| 347 | sub move_abs { | 350 | sub move_abs { |
| 348 | my ($self, $x, $y, $z) = @_; | 351 | my ($self, $x, $y, $z) = @_; |
| 349 | 352 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |