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