mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 02:01:24 +01:00
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>
This commit is contained in:
1 parent
d18429eabf
commit
4dc235341d
1 file changed
+6
-1
+6
-1
@@ -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;
|
||||
|
||||