diff options
author | Ian Campbell <ian.campbell@citrix.com> | 2011-12-01 16:05:51 +0000 |
---|---|---|
committer | Ian Campbell <ian.campbell@citrix.com> | 2011-12-01 16:05:51 +0000 |
commit | 4dc235341d4bda37e7e58911876e2290b8863bca (patch) | |
tree | bd3c7723b163f8268a31d0901c06218d90f6ea5e /docs | |
parent | d18429eabf8eef1b63e9f531e99d181533cfff90 (diff) | |
download | xen-4dc235341d4bda37e7e58911876e2290b8863bca.tar.gz xen-4dc235341d4bda37e7e58911876e2290b8863bca.tar.bz2 xen-4dc235341d4bda37e7e58911876e2290b8863bca.zip |
docs: implement uniq instead of depending on List::MoreUtils
Signed-off-by: Ian Campbell <ian.campbell@citrix.com>
Committed-by: Ian Jackson <ian.jackson@eu.citrix.com>
Diffstat (limited to 'docs')
-rw-r--r-- | docs/gen-html-index | 7 |
1 files changed, 6 insertions, 1 deletions
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; |