]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - pm_filter
po: report bug + test case + proposed fix
[git.ikiwiki.info.git] / pm_filter
1 #!/usr/bin/perl -i -p
3 BEGIN {
4         $prefix=shift;
5         $ver=shift;
6         $libdir=shift;
7 }
9 if (/INSTALLDIR_AUTOREPLACE/) {
10         $_=qq{our \$installdir="\Q$prefix\E";};
11 }
12 elsif (/VERSION_AUTOREPLACE/) {
13         $_=qq{our \$version="\Q$ver\E";};
14 }
15 elsif (/^(?:use FindBin; *)?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 \"\Q$libdir\E\";\n";
26         }
27 }
28 elsif ($. == 1 && ($ENV{NOTAINT}=0) && m{^(#!.*perl.*?)$}) {
29         $_=qq{$1 -T\n};
30 }
31 elsif (/^\$ENV\{PATH}="(.*)";/) {
32         $_="\$ENV{PATH}=\"\Q$1\E:\Q$prefix\E/bin\";\n";
33 }