}
}
-for (values %{ $data->{agents} }) {
- $_->{versions} = [ map { $_->{version} } @{ $_->{version_list} } ];
+for my $feature (values %{ $data->{data} }) {
+ while (my ($attr, $row) = each %{$feature}) {
+ delete $feature->{$attr} if ref $row eq '' and $row eq '';
+ }
}
say "# automatically generated by $0";