X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoSearch.pm;h=0ff2e9b7c50231a6380fe5a4deaef6328b78b18c;hb=202eb3b349348d04e15926777d7a3b7f8526c557;hp=f55f2cf7e05d28c29788fe6abe96b6b06d724ba4;hpb=ace28538cff532f8c5ee31b2cadaf577c0ced079;p=deb%2Fpackages.git

diff --git a/lib/Packages/DoSearch.pm b/lib/Packages/DoSearch.pm
index f55f2cf..0ff2e9b 100644
--- a/lib/Packages/DoSearch.pm
+++ b/lib/Packages/DoSearch.pm
@@ -172,7 +172,7 @@ sub do_search {
 		    $subsect{$pkg}{$suite}{$version} = $subsection;
 		    $sect{$pkg}{$suite}{$version} = $section
 			unless $section eq 'main';
-		    $archives{$pkg}{$suite}{$version} = $archive;
+		    $archives{$pkg}{$suite}{$version} ||= $archive;
 		    
 		    $desc{$pkg}{$suite}{$version} = $desc;
 		} else {
@@ -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,