[lintian] 01/01: r/harness: Replace ad-hoc comparator
This is an automated email from the git hooks/post-receive script.
nthykier pushed a commit to branch master
in repository lintian.
commit 9a9631fa24c8b2d088213bebbadd01e1a7faae1f
Author: Niels Thykier <niels@thykier.net>
Date: Sun Feb 16 11:31:39 2014 +0100
r/harness: Replace ad-hoc comparator
Signed-off-by: Niels Thykier <niels@thykier.net>
---
reporting/harness | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/reporting/harness b/reporting/harness
index 3769df7..164838c 100755
--- a/reporting/harness
+++ b/reporting/harness
@@ -132,8 +132,7 @@ require Lintian::Lab;
require Lintian::Lab::Manifest;
require Lintian::Processable;
require Lintian::Relation::Version;
-import Lintian::Relation::Version
- qw(versions_comparator versions_equal versions_lt);
+import Lintian::Relation::Version qw(versions_comparator);
require Lintian::Util;
import Lintian::Util qw(open_gz slurp_entire_file strip visit_dpkg_paragraph
load_state_cache find_backlog);
@@ -322,10 +321,9 @@ unless ($opt{'reports-only'}) {
}
# Sort so that the worklist is also sorted (makes it easier to review).
- my $comparator = sub { versions_lt($a, $b) ? -1 : 1; };
foreach my $gname (sort keys %dirty_groups) {
my $dver = $dirty_groups{$gname};
- foreach my $gversion (sort $comparator keys %$dver) {
+ for my $gversion (sort versions_comparator keys %{$dver}) {
my $group_id = "${gname}/${gversion}";
my $query = "GROUP:${group_id}";
my @res = $LAB->lab_query($query);
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git
Reply to: