Fix download locations for source packages

[deb/packages.git] / lib / Packages / DoSearch.pm

diff --git a/lib/Packages/DoSearch.pm b/lib/Packages/DoSearch.pm
index f55f2cf7e05d28c29788fe6abe96b6b06d724ba4..0ff2e9b7c50231a6380fe5a4deaef6328b78b18c 100644 (file)
--- 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,