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