]> git.deb.at Git - deb/packages.git/commitdiff
Fix path to contents db
authorJeroen van Wolffelaar <jeroen@wolffelaar.nl>
Mon, 13 Feb 2006 23:18:31 +0000 (23:18 +0000)
committerJeroen van Wolffelaar <jeroen@wolffelaar.nl>
Mon, 13 Feb 2006 23:18:31 +0000 (23:18 +0000)
cgi-bin/show_filelist.pl

index 1dab20e470d46d5bf425fc51f1044aa0fb6f3bd2..ff7b697902386b41d6e7e70dd7cde8ce3de74e44 100755 (executable)
@@ -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 = "";