Use exact wallclocktime when available (it's in the 'perl' package)

[deb/packages.git] / cgi-bin / show_package.pl

diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index f51110dea9789d6f1a181e443607f09aa1a229ef..d3d6c7a09c5518d8337058b75b4468d2605d1f25 100755 (executable)
--- a/cgi-bin/show_package.pl
+++ b/cgi-bin/show_package.pl
@@ -20,7 +20,7 @@ use POSIX;
 use URI::Escape;
 use HTML::Entities;
 use DB_File;
-use Benchmark;
+use Benchmark ':hireswallclock';
 
 use Deb::Versions;
 use Packages::Config qw( $DBDIR $ROOT @SUITES @ARCHIVES @SECTIONS
@@ -117,7 +117,7 @@ if ($params{errors}{suite}) {
 $opts{h_suites} =   { $suite => 1 };
 $opts{h_archs} =    { map { $_ => 1 } @archs };
 $opts{h_sections} = { map { $_ => 1 } @sections };
-$opts{h_archives} = { map { $_ => 1 } @archives };;
+$opts{h_archives} = { map { $_ => 1 } @archives };
 
 my $DL_URL = "$pkg/download";
 my $FILELIST_URL = "$pkg/files";