| … | |
… | |
| 4 | |
4 | |
| 5 | =cut |
5 | =cut |
| 6 | |
6 | |
| 7 | package Crossfire; |
7 | package Crossfire; |
| 8 | |
8 | |
| 9 | our $VERSION = '0.98'; |
9 | our $VERSION = '0.99'; |
| 10 | |
10 | |
| 11 | use strict; |
11 | use strict; |
| 12 | |
12 | |
| 13 | use base 'Exporter'; |
13 | use base 'Exporter'; |
| 14 | |
14 | |
| … | |
… | |
| 352 | # check whether attachment is the same as in the archetype |
352 | # check whether attachment is the same as in the archetype |
| 353 | if (exists $ob->{attach}) { |
353 | if (exists $ob->{attach}) { |
| 354 | my $arch = $ARCH{$ob->{_name}}; |
354 | my $arch = $ARCH{$ob->{_name}}; |
| 355 | my $js = JSON::XS->new->utf8->canonical (1); |
355 | my $js = JSON::XS->new->utf8->canonical (1); |
| 356 | |
356 | |
|
|
357 | if (defined $arch->{attach} |
| 357 | if ($js->encode ($js->decode ($ob->{attach})) eq $js->encode ($arch->{attach})) { |
358 | && $js->encode ($js->decode ($ob->{attach})) eq $js->encode ($arch->{attach})) { |
| 358 | delete $ob->{attach} |
359 | delete $ob->{attach} |
| 359 | } |
360 | } |
| 360 | } |
361 | } |
| 361 | |
362 | |
| 362 | # color_fg is used as default for magicmap if magicmap does not exist |
363 | # color_fg is used as default for magicmap if magicmap does not exist |
