clarify what date fields do, following [[bugs/invalid_meta_date_or_updated_not_diagno...

[git.ikiwiki.info.git] / pm_filter

diff --git a/pm_filter b/pm_filter
index 89449bd914122b88f85145a7fd7223ac5635f021..7b03418ab241de1c93f5d02da8b25b1eccb5219c 100755 (executable)
--- a/pm_filter
+++ b/pm_filter
@@ -3,14 +3,31 @@
 BEGIN {
        $prefix=shift;
        $ver=shift;
 BEGIN {
        $prefix=shift;
        $ver=shift;

+       $libdir=shift;

 }
 
 if (/INSTALLDIR_AUTOREPLACE/) {
 }
 
 if (/INSTALLDIR_AUTOREPLACE/) {

-       $_=qq{my \$installdir="$prefix";};
+       $_=qq{our \$installdir="\Q$prefix\E";};

 }
 elsif (/VERSION_AUTOREPLACE/) {
 }
 elsif (/VERSION_AUTOREPLACE/) {

-       $_=qq{our \$version="$ver";};
+       $_=qq{our \$version="\Q$ver\E";};

 }
 }

-elsif (/^use lib/) {
-       $_="";
+elsif (/^(?:use FindBin; *)?use lib/) {
+       # The idea here is to figure out if the libdir the Makefile.PL
+       # was configured to use is in perl's normal search path.
+       # If not, hard code it into ikiwiki.
+       if ((grep { $_ eq $libdir } @INC) &&
+            (! exists $ENV{PERL5LIB} || ! length $ENV{PERL5LIB} ||
+            $ENV{PERL5LIB} ne $libdir)) {
+               $_="";
+       }
+       else {
+               $_="use lib \"\Q$libdir\E\";\n";
+       }
+}
+elsif ($. == 1 && ($ENV{NOTAINT}=0) && m{^(#!.*perl.*?)$}) {
+       $_=qq{$1 -T\n};
+}
+elsif (/^\$ENV\{PATH}="(.*)";/) {
+       $_="\$ENV{PATH}=\"\Q$1\E:\Q$prefix\E/bin\";\n";

 }
 }