Packages, that were both real and virtual were listed twice

diff --git a/lib/Packages/DoSearch.pm b/lib/Packages/DoSearch.pm
index f55f2cf7e05d28c29788fe6abe96b6b06d724ba4..866bbc08f6169d1a1fe7453c1c3c1293550deff9 100644 (file)
--- a/lib/Packages/DoSearch.pm
+++ b/lib/Packages/DoSearch.pm
@@ -180,7 +180,8 @@ sub do_search {
                }
            }
 
-           my @pkgs = sort(keys %pkgs, keys %provided_by);
+           my %uniq_pkgs = map { $_ => 1 } (keys %pkgs, keys %provided_by);
+           my @pkgs = sort keys %uniq_pkgs;
            $$page_content .= print_packages( \%pkgs, \@pkgs, $opts, $keyword,
                                              \&print_package, \%provided_by,
                                              \%archives, \%sect, \%subsect,