detaint to keep perl from complaining
This commit is contained in:
parent
19482851ff
commit
9c8419f89a
|
@ -126,6 +126,11 @@ else
|
|||
ZoneMinder::Memory::Shared->import();
|
||||
}
|
||||
|
||||
# Detaint our environment
|
||||
$ENV{PATH} = '/bin:/usr/bin';
|
||||
$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL};
|
||||
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
|
||||
|
||||
# Native architecture
|
||||
|
||||
# The following returned the wrong result on some 32 bit distros running on 64 bit hardware
|
||||
|
|
Loading…
Reference in New Issue