version 1.2, 2001/11/15 18:13:32
|
version 1.3, 2001/11/15 18:15:06
|
Line 12
|
Line 12
|
|
|
use strict; |
use strict; |
|
|
my $VERSION = 1.1; |
|
|
|
# ------------------------------------------------------------------ Untainting |
# ------------------------------------------------------------------ Untainting |
$ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information. |
$ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information. |
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints |
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints |