[SCM] Debian package checker branch, master, updated. 1.24.2-77-ga6d7e1e

[Adam D. Barratt]

The following commit has been merged in the master branch:
commit a6d7e1e7b4f502a7d9bcb518c518544fe1a3aa96
Author: Adam D. Barratt <[EMAIL PROTECTED]>
Date:   Wed Aug 6 02:06:43 2008 +0100

    Fix a typo in ::Collect::index use.
    
    It's $info->index, not $info->{index}

diff --git a/checks/copyright-file b/checks/copyright-file
index 86fb1fd..30f72a2 100644
--- a/checks/copyright-file
+++ b/checks/copyright-file
@@ -45,8 +45,8 @@ use lib "$ENV{'LINTIAN_ROOT'}/checks/";
 use common_data;
 
 # Read package contents...
-foreach (sort keys %{$info->{index}}) {
-    my $index_info = $info->{index}->{$_};
+foreach (sort keys %{$info->index}) {
+    my $index_info = $info->index->{$_};
     if (m,usr/(share/)?doc/$ppkg/copyright(\.\S+)?$,) {
        my $ext = $2;
 
diff --git a/checks/fields b/checks/fields
index 87037a7..dd1156d 100644
--- a/checks/fields
+++ b/checks/fields
@@ -399,8 +399,8 @@ if (defined $info->field('installer-menu-item')) {
 my $metapackage = 0;
 if ($type eq 'binary' && $arch_indep) {
        $metapackage = 1;
-       foreach my $file (keys %{$info->{index}}) {
-               $metapackage = 0 unless ($info->{index}->{$file}->{type} =~ /^d/
+       foreach my $file (keys %{$info->index}) {
+               $metapackage = 0 unless ($info->index->{$file}->{type} =~ /^d/
                    || $file =~ m%^usr/share/doc/%);
        }
 }

-- 
Debian package checker


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]