if NOTAINT is not set, disable tainting
parent
736fa378c5
commit
2a802c1518
|
@ -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};
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue