From 4dc235341d4bda37e7e58911876e2290b8863bca Mon Sep 17 00:00:00 2001 From: Ian Campbell Date: Thu, 1 Dec 2011 16:05:51 +0000 Subject: docs: implement uniq instead of depending on List::MoreUtils Signed-off-by: Ian Campbell Committed-by: Ian Jackson --- docs/gen-html-index | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'docs/gen-html-index') diff --git a/docs/gen-html-index b/docs/gen-html-index index 0ce06601bd..c0001d7f60 100644 --- a/docs/gen-html-index +++ b/docs/gen-html-index @@ -10,7 +10,6 @@ use warnings; use Getopt::Long; use IO::File; use File::Basename; -use List::MoreUtils qw/ uniq /; Getopt::Long::Configure('bundling'); @@ -99,6 +98,12 @@ sub read_index ($$) { } } +sub uniq (@) { + my %h; + foreach (@_) { $h{$_} = 1; } + return keys %h; +} + for (@docs) { s,^\Q$outdir\E/,, } @docs = grep { -e "$outdir/$_" && (make_linktext($_) ne "NO-INDEX") } @docs; -- cgit v1.2.3