detaint to keep perl from complaining

This commit is contained in:
Andrew Bauer 2014-10-10 09:03:30 -05:00
parent 19482851ff
commit 9c8419f89a
1 changed files with 5 additions and 0 deletions

View File

@ -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