shlist

share and manage lists between multiple people
Log | Files | Refs

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:
Mserver/SL/Test.pm | 4+++-
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;