[SCM] Debian package checker branch, master, updated. 1.24.2-77-ga6d7e1e
The following commit has been merged in the master branch:
commit a6d7e1e7b4f502a7d9bcb518c518544fe1a3aa96
Author: Adam D. Barratt <adam@adam-barratt.org.uk>
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
Reply to: