[SCM] Debian package checker branch, master, updated. 2.5.4-66-g3d52617
The following commit has been merged in the master branch:
commit e647dbe580b056be7d391ff13dfa0c0097c53542
Author: Niels Thykier <niels@thykier.net>
Date: Thu Dec 22 10:53:52 2011 +0100
L::Lab::visit_packages: Only pass $pkg_path to entries if needed
This allows instantiation (and the removal) of a L::Lab::Entry where
the original processable has been removed.
Signed-off-by: Niels Thykier <niels@thykier.net>
diff --git a/lib/Lintian/Lab.pm b/lib/Lintian/Lab.pm
index 034ff3d..6cd9751 100644
--- a/lib/Lintian/Lab.pm
+++ b/lib/Lintian/Lab.pm
@@ -225,8 +225,9 @@ this returns the first match (if any).
=cut
sub get_package {
- my ($self, $pkg, $pkg_type, $pkg_version, $pkg_arch, $pkg_path) = @_;
+ my ($self, $pkg, $pkg_type, $pkg_version, $pkg_arch) = @_;
my $pkg_name;
+ my $pkg_path;
my @entries;
my $index;
my $proc;
@@ -313,10 +314,9 @@ sub visit_packages {
my ($me, $pkg_name, $pkg_version, $pkg_arch) = @_;
my $pkg_src = $me->{'source'}//$pkg_name;
my $dir = $self->_pool_path ($pkg_src, $pkg_type, $pkg_name, $pkg_version, $pkg_arch);
- my $pp = $me->{'file'};
my $pkg_src_version = $me->{'source-version'}//$pkg_version;
my $lentry = Lintian::Lab::Entry->_new ($self, $pkg_name, $pkg_version, $pkg_arch,
- $pkg_type, $pp, $pkg_src, $pkg_src_version, $dir);
+ $pkg_type, undef, $pkg_src, $pkg_src_version, $dir);
$visitor->($lentry, $pkg_name, $pkg_version, $pkg_arch);
};
$index->visit_all ($intv);
--
Debian package checker
Reply to: