if NOTAINT is not set, disable tainting

master
Joey Hess 2008-02-24 16:01:10 -05:00
parent 736fa378c5
commit 2a802c1518
1 changed files with 1 additions and 1 deletions

View File

@ -20,6 +20,6 @@ elsif (/^use lib/) {
$_="use lib '$libdir';\n"; $_="use lib '$libdir';\n";
} }
} }
elsif ($. == 1 && $ENV{NOTAINT} && m{^(#!/usr/bin/perl) -T$}) { elsif ($. == 1 && ($ENV{NOTAINT} || ! exists $ENV{NOTAINT}) && m{^(#!/usr/bin/perl) -T$}) {
$_=qq{$1\n}; $_=qq{$1\n};
} }