*** popularity-contest.orig	2011-05-17 13:27:25.439953116 +0200
--- popularity-contest	2011-05-17 14:05:37.955160589 +0200
***************
*** 93,105 ****
  }
  
  # Read dpkg database of installed packages
! open PACKAGES, "dpkg-query --show --showformat='\${status} \${package}\\n'|";
  while (<PACKAGES>)
  {
!   /^.*installed *(.+)$/ or next;
    my $pkg=$1;
    $popcon{$pkg}=[0,0,$pkg,"<NOFILES>"];
!   open FILES, "$dpkg_db/$pkg.list";
    my $bestatime = undef;
    while (<FILES>)
    {
--- 93,105 ----
  }
  
  # Read dpkg database of installed packages
! open PACKAGES, "/usr/bin/dpkg-query --show --showformat='\${status} \${package}\\n'|" or die("dpkg-query failure: $!");
  while (<PACKAGES>)
  {
!   /^.*installed *(\S+)$/ or next;
    my $pkg=$1;
    $popcon{$pkg}=[0,0,$pkg,"<NOFILES>"];
!   open FILES, "dpkg-query --listfiles $pkg|" or die("dpgk-query failure: $! for package: $pkg");
    my $bestatime = undef;
    while (<FILES>)
    {