Re: [Xen-devel] [PATCH 11 of 17 v3] docs: generate an index for the html output

[Ian Campbell <Ian.Campbell@xxxxxxxxxx>]

On Wed, 2011-11-30 at 20:50 +0000, Olaf Hering wrote:
> On Tue, Nov 29, Ian Campbell wrote:
> 
> > +use List::MoreUtils qw/ uniq /;
> 
> This adds a new requires of perl-List-MoreUtils.rpm for make docs.
> I'm not sure wether such buildrequires need to be listed in the README,
> but at least markdown is listed. I think it is recommended for make docs

Lets just nuke the requirement, it's trivial to reimplement.

# HG changeset patch
# User Ian Campbell <ian.campbell@xxxxxxxxxx>
# Date 1322731354 0
# Node ID faab9e3c36f0a4eaec7f2af5cad9d3c038ea489b
# Parent  89f7273681696022cc44db4f2ec5b22560482869
docs: implement uniq instead of depending on List::MoreUtils

Signed-off-by: Ian Campbell <ian.campbell@xxxxxxxxxx>

diff -r 89f727368169 -r faab9e3c36f0 docs/gen-html-index
--- a/docs/gen-html-index       Thu Dec 01 08:51:35 2011 +0100
+++ b/docs/gen-html-index       Thu Dec 01 09:22:34 2011 +0000
@@ -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;



_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/xen-devel