- my ($path, $entry) = @_;
- my @provided_by = split /\s/, $entry;
- my $short_desc = "virtual package provided by ";
+ my ($suite, $entry, $also) = @_;
+ my %tmp = map { $_ => 1 } split /\s/, $entry;
+ my @provided_by = keys %tmp; # weed out duplicates
+ my $short_desc = $also ? _g("also a virtual package provided by ")
+ : _g("virtual package provided by ");