Check whether open(pkg.list) succeed.

debian/changelog

@@ -13,8 +13,10 @@ popularity-contest (1.52) UNRELEASED; urgency=low
   * prepop.pl popcon-stat.pl popcon-process.sh popcon.pl:
     - sync with popcon.debian.org version: rename all-popcon-results.txt.gz to
       all-popcon-results.gz to avoid issues with content negotiation.
+  * popularity-contest:
+    - Check whether open(pkg.list) succeed.
 
- -- Bill Allombert <ballombe@debian.org>  Sun, 20 Mar 2011 13:31:30 +0100
+ -- Bill Allombert <ballombe@debian.org>  Wed, 30 Mar 2011 18:01:48 +0200
 
 popularity-contest (1.51) unstable; urgency=low
 

popularity-contest

@@ -99,7 +99,8 @@ while (<PACKAGES>)
   /^.*installed *(.+)$/ or next;
   my $pkg=$1;
   $popcon{$pkg}=[0,0,$pkg,"<NOFILES>"];
-  open FILES, "$dpkg_db/$pkg.list";
+  open FILES, "$dpkg_db/$pkg.list" or 
+    do { print STDERR "popcon: file $dpkg_db/$pkg.list is missing\n"; next; };
   my $bestatime = undef;
   while (<FILES>)
   {