… | … | ||
---|---|---|---|
12 | } | 12 | } |
13 | 13 | ||
14 | sub post_load_original { | 14 | sub post_load_original { |
15 | my ($self) = @_; | 15 | my ($self) = @_; |
16 | 16 | ||
17 | warn "xxx $self->{ox}+$self->{oy} * $self->{z}\n";#d# | ||
17 | $self->gen_quadmap (@$self{qw(x y z)}); | 18 | $self->gen_quadmap (@$self{qw(ox oy z)}); |
18 | 19 | ||
19 | $self->SUPER::post_load_original; | 20 | $self->SUPER::post_load_original; |
20 | } | 21 | } |
21 | 22 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |