web commit by http://id.inelegant.org/

diff --git a/doc/patchqueue/lib-fixup.mdwn b/doc/patchqueue/lib-fixup.mdwn
index 3d509fe8a95010eedc97fa687436f021e1a8c614..0739c211507c9e32003b60018a3403b297e621bf 100644 (file)
--- a/doc/patchqueue/lib-fixup.mdwn
+++ b/doc/patchqueue/lib-fixup.mdwn
@@ -3,34 +3,36 @@ I'm using Ikiwiki on a box where I don't have root access, so I install all of m
 I imagine that there's a clean and elegant solution to this, but the hack I'm currently using is to have `./make` alter `ikiwki.in` before it's run, by inserting `use lib ...` lines for each of the directories in `$ENV{PERL5LIB}`. Again, this is clearly ugly, but it allows me to run `./make`, so I'm submitting it FWIW.
 
 <pre> 
 I imagine that there's a clean and elegant solution to this, but the hack I'm currently using is to have `./make` alter `ikiwki.in` before it's run, by inserting `use lib ...` lines for each of the directories in `$ENV{PERL5LIB}`. Again, this is clearly ugly, but it allows me to run `./make`, so I'm submitting it FWIW.
 
 <pre> 

+Index: Makefile.PL
+===================================================================
+--- Makefile.PL (revision 2630)
++++ Makefile.PL (working copy)
+@@ -24,6 +24,7 @@
+ )
+ 
+ extra_build:
++       LANG=C ./lib-fixup.pl ikiwiki.in
+        LANG=C ./ikiwiki.in doc html --templatedir=templates \
+                --underlaydir=basewiki \
+                --wikiname="ikiwiki" --verbose --no-rcs \

 Index: lib-fixup.pl
 ===================================================================
 --- lib-fixup.pl        (revision 0)
 +++ lib-fixup.pl        (revision 0)
 Index: lib-fixup.pl
 ===================================================================
 --- lib-fixup.pl        (revision 0)
 +++ lib-fixup.pl        (revision 0)

-@@ -0,0 +1,7 @@
+@@ -0,0 +1,9 @@

 +#!/usr/bin/perl -i.bak -p
 +use strict;
 +use warnings;
 +#!/usr/bin/perl -i.bak -p
 +use strict;
 +use warnings;

-+my $libs = join('', map { "use lib '$_';\n" } split /:/, $ENV{PERL5LIB});
-+s/(use IkiWiki;)/$1\n$libs/;
-+
-+
++my @dirs = $ENV{PERL5LIB} =~ /:/ ? split /:/, $ENV{PERL5LIB} : $ENV{PERL5LIB};
++if (@dirs) {
++    my $libs = join('', map { " use lib '$_';\n" } @dirs);
++    s/(use IkiWiki;)/$libs$1/;
++}
++ 

 
 Property changes on: lib-fixup.pl
 ___________________________________________________________________
 Name: svn:executable
    + *
 
 Property changes on: lib-fixup.pl
 ___________________________________________________________________
 Name: svn:executable
    + *

-Index: Makefile.PL
-===================================================================
---- Makefile.PL (revision 2628)
-+++ Makefile.PL (working copy)
-@@ -24,6 +24,7 @@
- )
- 
- extra_build:
-+       LANG=C ./lib-fixup.pl ikiwiki.in
-        LANG=C ./ikiwiki.in doc html --templatedir=templates \
-                --underlaydir=basewiki \
-                --wikiname="ikiwiki" --verbose --no-rcs \

 
 </pre>
\ No newline at end of file
 
 </pre>
\ No newline at end of file