if NOTAINT is not set, disable tainting

2008-02-24 16:01:10 -05:00 · 2008-02-24 16:01:10 -05:00 · 2a802c1518
parent 736fa378c5
commit 2a802c1518
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -20,6 +20,6 @@ elsif (/^use lib/) {
 		$_="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};
 }