X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FDoSearch.pm;h=77bedfb999927899b8e291c036abdd9738a0eefb;hb=8d87208b82495ee1d9c0d2e9eabdf953f65e3029;hp=d395a310334b787775aa078162bb739b928a8d1c;hpb=07fdff9c69f8bd3b4d357fd61042f588701dd1c6;p=deb%2Fpackages.git

diff --git a/lib/Packages/DoSearch.pm b/lib/Packages/DoSearch.pm
index d395a31..77bedfb 100644
--- a/lib/Packages/DoSearch.pm
+++ b/lib/Packages/DoSearch.pm
@@ -5,8 +5,6 @@ use warnings;
 
 use Benchmark ':hireswallclock';
 use DB_File;
-use URI::Escape;
-use HTML::Entities;
 use Exporter;
 our @ISA = qw( Exporter );
 our @EXPORT = qw( do_search );
@@ -19,7 +17,7 @@ use Packages::DB;
 use Packages::Config qw( $DBDIR @SUITES @ARCHIVES $ROOT );
 
 sub do_search {
-    my ($params, $opts, $html_header, $page_content) = @_;
+    my ($params, $opts, $page_content) = @_;
 
     $Params::Search::too_many_hits = 0;
 
@@ -123,7 +121,7 @@ sub do_search {
 		    $version) = @$_;
 
 		my $real_archive = '';
-		if ($archive =~ /^(security|non-US)$/) {
+		if ($archive eq 'security') {
 		    $real_archive = $archive;
 		    $archive = 'us';
 		}