[lintian] 04/15: r/html_reports: Use List::MoreUtils uniq

[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 2437abb34185a215a88eea1e6d8c07520920cf94
Author: Niels Thykier <niels@thykier.net>
Date:   Fri Feb 7 20:52:59 2014 +0100

    r/html_reports: Use List::MoreUtils uniq
    
    ... instead of doing an ad-hoc implementation of same.
    
    Signed-off-by: Niels Thykier <niels@thykier.net>
---
 reporting/html_reports | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/reporting/html_reports b/reporting/html_reports
index da8e7d6..f898226 100755
--- a/reporting/html_reports
+++ b/reporting/html_reports
@@ -28,6 +28,7 @@ use autodie;
 use POSIX qw(strftime);
 use File::Copy qw(copy);
 use Fcntl qw(SEEK_SET);
+use List::MoreUtils qw(uniq);
 use URI::Escape;
 use Text::Template ();
 
@@ -350,12 +351,8 @@ undef $source_info;
 # page that includes info, experimental, and overriden tags, and assemble the
 # maintainer index and the QA package list as we go.
 my (%qa, %maintainers, %sources);
-my @maintainers;
-{
-    my %unique;
-    @maintainers=sort grep { !$unique{$_}++ } keys(%by_maint),
-      keys(%by_uploader);
-}
+my @maintainers = sort(uniq(keys(%by_maint), keys(%by_uploader)));
+
 for my $maintainer (@maintainers) {
     my $id = maintainer_url($maintainer);
     delete $clean{$id};

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