[SCM] Debian package checker branch, master, updated. 2.2.10-12-g3b9f019

["Adam D. Barratt" <adam@adam-barratt.org.uk>]

The following commit has been merged in the master branch:
commit dce1c4352520f061f0a64defb3683def6721135b
Author: Adam D. Barratt <adam@adam-barratt.org.uk>
Date:   Sun May 3 17:10:24 2009 +0100

    Use $LINTIAN_AREA instead of $LINTIAN_SECTION
    
    * unpack/list-{bin,src,udeb}pkg:
      + [ADB] Use the new $LINTIAN_AREA variable to determine which package
        list to read.

diff --git a/debian/changelog b/debian/changelog
index 7704b82..f575986 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -33,6 +33,10 @@ lintian (2.2.11) UNRELEASED; urgency=low
       variables.  In each case, the original name is permitted as a
       synonym.
 
+  * unpack/list-{bin,src,udeb}pkg:
+    + [ADB] Use the new $LINTIAN_AREA variable to determine which package
+      list to read.
+
  -- Russ Allbery <rra@debian.org>  Tue, 28 Apr 2009 10:24:46 -0700
 
 lintian (2.2.10) unstable; urgency=low
diff --git a/unpack/list-binpkg b/unpack/list-binpkg
index 9b84789..0a95e26 100755
--- a/unpack/list-binpkg
+++ b/unpack/list-binpkg
@@ -67,7 +67,7 @@ use Util;
 my $LINTIAN_ARCHIVEDIR = $ENV{'LINTIAN_ARCHIVEDIR'};
 my $LINTIAN_DIST = $ENV{'LINTIAN_DIST'};
 my $LINTIAN_ARCH = $ENV{'LINTIAN_ARCH'};
-my $LINTIAN_SECTION = $ENV{'LINTIAN_SECTION'};
+my $LINTIAN_AREA = $ENV{'LINTIAN_AREA'};
 my $LINTIAN_LAB = $ENV{'LINTIAN_LAB'};
 
 # read old list file (this command does nothing if the file does not exist)
@@ -85,7 +85,7 @@ open(OUT, '>', $output_file)
 print OUT "$BINLIST_FORMAT\n";
 
 # parse Packages file to get list of packages
-my $packages = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_SECTION/".
+my $packages = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_AREA/".
                "binary-$LINTIAN_ARCH/Packages";
 if (-e $packages) {
 	print "N: Parsing $packages ...\n" if $verbose;
diff --git a/unpack/list-srcpkg b/unpack/list-srcpkg
index 9564f69..3147698 100755
--- a/unpack/list-srcpkg
+++ b/unpack/list-srcpkg
@@ -66,7 +66,7 @@ use Util;
 my $LINTIAN_ARCHIVEDIR = $ENV{'LINTIAN_ARCHIVEDIR'};
 my $LINTIAN_DIST = $ENV{'LINTIAN_DIST'};
 my $LINTIAN_LAB = $ENV{'LINTIAN_LAB'};
-my $LINTIAN_SECTION = $ENV{'LINTIAN_SECTION'};
+my $LINTIAN_AREA = $ENV{'LINTIAN_AREA'};
 
 # read old list file (this command does nothing if the file does not exist)
 read_src_list($output_file,1);
@@ -82,7 +82,7 @@ open(OUT, '>', $output_file) or fail("cannot open list file $output_file for wri
 print OUT "$SRCLIST_FORMAT\n";
 
 # parse Sources.gz to get list of packages
-my $sources = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_SECTION/source/Sources.gz";
+my $sources = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_AREA/source/Sources.gz";
 print "N: Parsing $sources ...\n" if $verbose;
 open(IN, '-|', 'zcat', $sources) or fail("Cannot open input pipe from zcat $sources: $!");
 
diff --git a/unpack/list-udebpkg b/unpack/list-udebpkg
index 42c99fe..195a3d2 100755
--- a/unpack/list-udebpkg
+++ b/unpack/list-udebpkg
@@ -68,7 +68,7 @@ use Util;
 my $LINTIAN_ARCHIVEDIR = $ENV{'LINTIAN_ARCHIVEDIR'};
 my $LINTIAN_DIST = $ENV{'LINTIAN_DIST'};
 my $LINTIAN_ARCH = $ENV{'LINTIAN_ARCH'};
-my $LINTIAN_SECTION = $ENV{'LINTIAN_SECTION'};
+my $LINTIAN_AREA = $ENV{'LINTIAN_AREA'};
 my $LINTIAN_LAB = $ENV{'LINTIAN_LAB'};
 
 # read old list file (this command does nothing if the file does not exist)
@@ -86,7 +86,7 @@ open(OUT, '>', $output_file)
 print OUT "$UDEBLIST_FORMAT\n";
 
 # parse Packages file to get list of packages
-my $packages = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_SECTION/".
+my $packages = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_AREA/".
                "debian-installer/binary-$LINTIAN_ARCH/Packages";
 if (-e $packages) {
     print "N: Parsing $packages ...\n" if $verbose;

-- 
Debian package checker