[lintian] 09/11: harness: Exclude "up to date" packages from the backlog

[Niels Thykier <nthykier@moszumanska.debian.org>]

This is an automated email from the git hooks/post-receive script.

nthykier pushed a commit to branch master
in repository lintian.

commit 9999519719d8a72be2d5d97db0416f178e0a09fd
Author: Niels Thykier <niels@thykier.net>
Date:   Sat Dec 21 15:34:11 2013 +0100

    harness: Exclude "up to date" packages from the backlog
    
    Signed-off-by: Niels Thykier <niels@thykier.net>
---
 reporting/harness | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/reporting/harness b/reporting/harness
index 303d015..49536b8 100755
--- a/reporting/harness
+++ b/reporting/harness
@@ -131,7 +131,8 @@ require Lintian::Lab;
 require Lintian::Lab::Manifest;
 require Lintian::Processable;
 require Lintian::Relation::Version;
-import Lintian::Relation::Version qw(versions_comparator versions_lt);
+import Lintian::Relation::Version
+  qw(versions_comparator versions_equal versions_lt);
 require Lintian::Util;
 import Lintian::Util qw(open_gz slurp_entire_file strip visit_dpkg_paragraph);
 
@@ -828,7 +829,8 @@ sub find_backlog {
         if (exists($state->{$group_id}{'last-processed-by'})) {
             $last_version = $state->{$group_id}{'last-processed-by'};
         }
-        push(@list, [$group_id, $last_version]);
+        push(@list, [$group_id, $last_version])
+          if not versions_equal($last_version, $LINTAIN_VERSION);
     }
     @sorted = map { $_->[0] }
       sort { versions_comparator($a->[1], $b->[1]) || $a->[0] cmp $b->[0] }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git