commit a57abddf9f7da053e044d5d6fe5f4d85cd983de3
parent 68bca9c585deb2a89d07d981f461357d7ae7f080
Author: Kyle Milz <kyle@0x30.net>
Date: Sat, 27 Feb 2016 19:55:08 -0700
server: make tests work with -T (taint mode checking)
Diffstat:
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/server/SL/Test.pm b/server/SL/Test.pm
@@ -10,11 +10,13 @@ sub new {
bless ($self, $class);
my $perl_args = '';
- if ($ARGV[0] eq '-c') {
+ if (defined $ARGV[0] && $ARGV[0] eq '-c') {
# Enable test coverage when -c is passed to the test
$perl_args = '-MDevel::Cover=-silent,1';
}
+ $ENV{PATH} = "/bin:/usr/bin";
+ delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };
my $pid = open3(undef, undef, \*CHLD_ERR, "perl $perl_args -T sl -t -p 4729");
$self->{pid} = $pid;