web commit by http://natalian.org/

[git.ikiwiki.info.git] / pm_filter

diff --git a/pm_filter b/pm_filter
index f61e7810b686cc8a1995134b9f8ed75ded158044..a80ce04f0e7b015540df972a9356805a13b8323d 100755 (executable)
--- a/pm_filter
+++ b/pm_filter
@@ -20,3 +20,6 @@ elsif (/^use lib/) {
                $_="use lib '$libdir';\n";
        }
 }
+elsif ($. == 1 && $ENV{NOTAINT} && m{^(#!/usr/bin/perl) -T$}) {
+       $_=qq{$1\n};
+}