| … | |
… | |
| 178 | } |
178 | } |
| 179 | } |
179 | } |
| 180 | |
180 | |
| 181 | # now assemble meta info |
181 | # now assemble meta info |
| 182 | my %meta = %{$self->{info}}; |
182 | my %meta = %{$self->{info}}; |
|
|
183 | |
| 183 | $meta{x} = $self->{width}; |
184 | $meta{width} = $self->{width}; |
| 184 | $meta{y} = $self->{height}; |
185 | $meta{height} = $self->{height}; |
| 185 | |
186 | |
| 186 | unshift @arch, \%meta; |
187 | unshift @arch, Crossfire::normalize_arch \%meta; |
| 187 | |
188 | |
| 188 | \@arch |
189 | \@arch |
| 189 | } |
190 | } |
| 190 | |
191 | |
| 191 | sub as_mapstring { |
192 | sub as_mapstring { |
| … | |
… | |
| 195 | |
196 | |
| 196 | my $str; |
197 | my $str; |
| 197 | |
198 | |
| 198 | my $append; $append = sub { |
199 | my $append; $append = sub { |
| 199 | my %a = %{$_[0]}; |
200 | my %a = %{$_[0]}; |
|
|
201 | |
|
|
202 | Crossfire::normalize_arch \%a; |
| 200 | |
203 | |
| 201 | $str .= "arch " . (delete $a{_name}) . "\n"; |
204 | $str .= "arch " . (delete $a{_name}) . "\n"; |
| 202 | |
205 | |
| 203 | my $inv = delete $a{arch}; |
206 | my $inv = delete $a{arch}; |
| 204 | |
207 | |
