use URI::Escape;
use HTML::Entities;
use DB_File;
-use Benchmark;
+use Benchmark ':hireswallclock';
use Deb::Versions;
use Packages::Config qw( $DBDIR $ROOT $SEARCH_CGI $SEARCH_PAGE
match => '^([\w-]+)$',
array => ',', var => \@archives,
replace => { all => \@ARCHIVES,
- default => [qw(us security non-US)]} },
+ default => [qw(us security non-US)]} },
exact => { default => 0, match => '^(\w+)$', },
source => { default => 0, match => '^(\d+)$', },
searchon => { default => 'names', match => '^(\w+)$', },
subsection => { default => 'default', match => '^([\w-]+)$',
array => ',', var => \@subsections,
replace => { default => [] } },
- arch => { default => 'any', match => '^(\w+)$',
+ arch => { default => 'any', match => '^([\w-]+)$',
array => ',', var => \@archs, replace =>
{ any => \@ARCHITECTURES } },
);