initial patch review; 2 possible bugs
[ikiwiki.git] / pm_filter
blob1e51f9dd347c79e738d4aa9b4ef33da86aeafbfa
1 #!/usr/bin/perl -i -p
3 BEGIN {
4 $prefix=shift;
5 $ver=shift;
6 $libdir=shift;
9 if (/INSTALLDIR_AUTOREPLACE/) {
10 $_=qq{our \$installdir="$prefix";};
12 elsif (/VERSION_AUTOREPLACE/) {
13 $_=qq{our \$version="$ver";};
15 elsif (/^use lib/) {
16 # The idea here is to figure out if the libdir the Makefile.PL
17 # was configured to use is in perl's normal search path.
18 # If not, hard code it into ikiwiki.
19 if ((grep { $_ eq $libdir } @INC) &&
20 (! exists $ENV{PERL5LIB} || ! length $ENV{PERL5LIB} ||
21 $ENV{PERL5LIB} ne $libdir)) {
22 $_="";
24 else {
25 $_="use lib '$libdir';\n";
28 elsif ($. == 1 && ($ENV{NOTAINT}=0) && m{^(#!.*perl.*?)$}) {
29 $_=qq{$1 -T\n};
31 elsif (/^\$ENV{PATH}="(.*)";/) {
32 $_="\$ENV{PATH}=\"$1:$prefix/bin\";\n";