- my $spec;
- if (!array_diff(@dnskey, @target)) {
- $spec = $dnskey;
- } else {
- my @elems = intersect(@dnskey, @target);
- push @elems, map { '-'.$_ } array_minus(@target, @dnskey);
- push @elems, map { '+'.$_ } array_minus(@dnskey, @target);
- $spec = join ',', @elems;
- }