split out bug report and close
[ikiwiki] / pm_filter
1 #!/usr/bin/perl -i -p
2
3 BEGIN {
4         $prefix=shift;
5         $ver=shift;
6         $libdir=shift;
7 }
8
9 if (/INSTALLDIR_AUTOREPLACE/) {
10         $_=qq{our \$installdir="$prefix";};
11 }
12 elsif (/VERSION_AUTOREPLACE/) {
13         $_=qq{our \$version="$ver";};
14 }
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                 $_="";
23         }
24         else {
25                 $_="use lib '$libdir';\n";
26         }
27 }
28 elsif ($. == 1 && ($ENV{NOTAINT}=0) && m{^(#!.*perl.*?)$}) {
29         $_=qq{$1 -T\n};
30 }
31 elsif (/^\$ENV{PATH}="(.*)";/) {
32         $_="\$ENV{PATH}=\"$1:$prefix/bin\";\n";
33 }