X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=cgi-bin%2Fshow_filelist.pl;h=ffb93ee0fbf7e0045a724d375eceb293e02ab464;hb=d9c10aaf0bb03bfb75404f9041967b9f91012bdb;hp=1dab20e470d46d5bf425fc51f1044aa0fb6f3bd2;hpb=0da0d1ac9358963bbaeae0bb7db8bf5e9e150894;p=deb%2Fpackages.git

diff --git a/cgi-bin/show_filelist.pl b/cgi-bin/show_filelist.pl
index 1dab20e..ffb93ee 100755
--- a/cgi-bin/show_filelist.pl
+++ b/cgi-bin/show_filelist.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
@@ -96,11 +96,10 @@ print_debug();
 print_notes();
 
 unless (@Packages::CGI::fatal_errors) {
-    tie my %contents, 'DB_File', "$DBDIR/packages_contents_${suite}_${arch}.db",
+    tie my %contents, 'DB_File', "$DBDIR/contents/filelists_${suite}_${arch}.db",
 	O_RDONLY, 0666, $DB_BTREE
-	or die "couldn't tie DB $DBDIR/packages_contents_${suite}_${arch}.db: $!";
+	or die "Invalid suite/arch combination";
 
-    my $cont = $contents{$pkg};
     print "No such package in this suite on this arch" if not exists $contents{$pkg};
     my @files = unpack "L/(CC/a)", $contents{$pkg};
     my $file = "";