+
+ # expand tags like devel::{lang:c,lang:c++}
+ if ($data{'tag'} && $data{'tag'} =~ /\{/) {
+ my @complete_tags = split(/, /, $data{'tag'});
+ my @tags;
+ foreach (@complete_tags) {
+ my ($facet, $tag) = split( /::/, $_, 2);
+ if ($tag =~ s/^\{(.+)\}$/$1/) {
+ warn "pkg=$data{package} tags=$data{tag}\n" unless $facet && $tag;
+ foreach (split( /,/, $tag )) {
+ push @tags, "${facet}::$_";
+ }
+ } else {
+ warn "pkg=$data{package} tags=$data{tag}\n" unless $facet && $tag;
+ push @tags, "${facet}::$tag";
+ }
+ }
+ my $old = $data{tag};
+ $data{'tag'} = join ", ", @tags;
+ }
+