[SCM] Debian package checker branch, master, updated. 2.5.4-66-g3d52617

["Niels Thykier" <niels@thykier.net>]

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