[SCM] Debian package checker branch, master, updated. 2.2.12-36-gd43f9f9

["Russ Allbery" <rra@debian.org>]

The following commit has been merged in the master branch:
commit ff8a9217dff73b2af56663a1f3cfd61a0fd50339
Author: Raphael Geissert <atomo64@gmail.com>
Date:   Sat Jun 20 15:27:39 2009 -0500

    Make the code easier to understand

diff --git a/unpack/list-binpkg b/unpack/list-binpkg
index cf6b40a..81d5501 100755
--- a/unpack/list-binpkg
+++ b/unpack/list-binpkg
@@ -85,7 +85,7 @@ open(OUT, '>', $output_file)
 print OUT "$BINLIST_FORMAT\n";
 
 # parse Packages file to get list of packages
-my @packages;
+my @packages_files;
 foreach my $area (split /\s*,\s*/,$LINTIAN_AREA) {
     my %hash;
     $hash{'dist'} = $LINTIAN_DIST;
@@ -93,14 +93,14 @@ foreach my $area (split /\s*,\s*/,$LINTIAN_AREA) {
     $hash{'area'} = $area;
     $hash{'file'} = "$LINTIAN_ARCHIVEDIR/dists/$hash{'dist'}/$hash{'area'}/" .
 		    "binary-$hash{'arch'}/Packages";
-    push @packages, \%hash;
+    push @packages_files, \%hash;
 }
 
 my %packages;
 my $total = 0;
 
-foreach my $packages (@packages) {
-    my $pkgs_file = $packages->{'file'};
+foreach my $packages_file (@packages_files) {
+    my $pkgs_file = $packages_file->{'file'};
     if (-e $pkgs_file) {
 	    print "N: Parsing $pkgs_file ...\n" if $verbose;
 	    open(IN, '<', $pkgs_file) or fail("cannot open Packages file $pkgs_file: $!");
@@ -178,7 +178,7 @@ foreach my $packages (@packages) {
 		       $data->{'source-version'},
 		       $deb_file,
 		       $timestamp,
-		       $packages->{'area'}
+		       $packages_file->{'area'}
 		       ),"\n";
 	printf "N: Listed %s binary package %s %s\n",$status,$pkg,$data->{'version'} if $verbose;
 
diff --git a/unpack/list-udebpkg b/unpack/list-udebpkg
index fc81857..c8597eb 100755
--- a/unpack/list-udebpkg
+++ b/unpack/list-udebpkg
@@ -86,7 +86,7 @@ open(OUT, '>', $output_file)
 print OUT "$UDEBLIST_FORMAT\n";
 
 # parse Packages file to get list of packages
-my @packages;
+my @packages_files;
 foreach my $area (split /\s*,\s*/,$LINTIAN_AREA) {
     my %hash;
     $hash{'dist'} = $LINTIAN_DIST;
@@ -94,14 +94,14 @@ foreach my $area (split /\s*,\s*/,$LINTIAN_AREA) {
     $hash{'area'} = $area;
     $hash{'file'} = "$LINTIAN_ARCHIVEDIR/dists/$hash{'dist'}/$hash{'area'}/" .
                     "debian-installer/binary-$hash{'arch'}/Packages";
-    push @packages, \%hash;
+    push @packages_files, \%hash;
 }
 
 my %packages;
 my $total = 0;
 
-foreach my $packages (@packages) {
-    my $pkgs_file = $packages->{'file'};
+foreach my $packages_file (@packages_files) {
+    my $pkgs_file = $packages_file->{'file'};
     if (-e $pkgs_file) {
         print "N: Parsing $pkgs_file ...\n" if $verbose;
         open(IN, '<', $pkgs_file) or fail("cannot open Packages file $pkgs_file: $!");
@@ -180,7 +180,7 @@ foreach my $packages (@packages) {
 		       $data->{'source-version'},
 		       $deb_file,
 		       $timestamp,
-		       $packages->{'area'},
+		       $packages_file->{'area'},
 		       ),"\n";
         printf "N: Listed %s udeb package %s %s\n",$status,$pkg,$data->{'version'} if $verbose;
 

-- 
Debian package checker