delete $nmbd_envs->{RESOLV_WRAPPER_HOSTS};
# fork and exec() nmbd in the child process
- my %daemon_ctx = (
+ my $daemon_ctx = {
NAME => "nmbd",
BINARY_PATH => $binary,
FULL_CMD => [ @full_cmd ],
LOG_FILE => $env_vars->{NMBD_TEST_LOG},
ENV_VARS => $nmbd_envs,
- );
+ };
if ($nmbd ne "yes") {
- $daemon_ctx{SKIP_DAEMON} = 1;
+ $daemon_ctx->{SKIP_DAEMON} = 1;
}
- my $pid = Samba::fork_and_exec($self, $env_vars, \%daemon_ctx, $STDIN_READER);
+ my $pid = Samba::fork_and_exec($self, $env_vars, $daemon_ctx, $STDIN_READER);
$env_vars->{NMBD_TL_PID} = $pid;
write_pid($env_vars, "nmbd", $pid);
}
# fork and exec() winbindd in the child process
- %daemon_ctx = (
+ $daemon_ctx = {
NAME => "winbindd",
BINARY_PATH => $binary,
FULL_CMD => [ @full_cmd ],
LOG_FILE => $env_vars->{WINBINDD_TEST_LOG},
- );
+ };
if ($winbindd ne "yes") {
- $daemon_ctx{SKIP_DAEMON} = 1;
+ $daemon_ctx->{SKIP_DAEMON} = 1;
}
- my $pid = Samba::fork_and_exec($self, $env_vars, \%daemon_ctx, $STDIN_READER);
+ my $pid = Samba::fork_and_exec($self, $env_vars, $daemon_ctx, $STDIN_READER);
$env_vars->{WINBINDD_TL_PID} = $pid;
write_pid($env_vars, "winbindd", $pid);
$ENV{SMBD_DONT_LOG_STDOUT});
# fork and exec() smbd in the child process
- %daemon_ctx = (
+ $daemon_ctx = {
NAME => "smbd",
BINARY_PATH => $binary,
FULL_CMD => [ @full_cmd ],
LOG_FILE => $env_vars->{SMBD_TEST_LOG},
- );
+ };
if ($smbd ne "yes") {
- $daemon_ctx{SKIP_DAEMON} = 1;
+ $daemon_ctx->{SKIP_DAEMON} = 1;
}
- my $pid = Samba::fork_and_exec($self, $env_vars, \%daemon_ctx, $STDIN_READER);
+ my $pid = Samba::fork_and_exec($self, $env_vars, $daemon_ctx, $STDIN_READER);
$env_vars->{SMBD_TL_PID} = $pid;
write_pid($env_vars, "smbd", $pid);
}
# fork a child process and exec() samba
- my %daemon_ctx = (
+ my $daemon_ctx = {
NAME => "samba",
BINARY_PATH => $binary,
FULL_CMD => [ @full_cmd ],
LOG_FILE => $env_vars->{SAMBA_TEST_LOG},
TEE_STDOUT => 1,
ENV_VARS => $samba_envs,
- );
- my $pid = Samba::fork_and_exec($self, $env_vars, \%daemon_ctx, $STDIN_READER);
+ };
+ my $pid = Samba::fork_and_exec($self, $env_vars, $daemon_ctx, $STDIN_READER);
$env_vars->{SAMBA_PID} = $pid;
push (@args, Samba::realm_to_ip_mappings());
my @full_cmd = (@preargs, $binary, @args);
- my %daemon_ctx = (
+ my $daemon_ctx = {
NAME => "dnshub",
BINARY_PATH => $binary,
FULL_CMD => [ @full_cmd ],
TEE_STDOUT => 1,
PCAP_FILE => "$ENV{SOCKET_WRAPPER_PCAP_DIR}/env-$hostname$.pcap",
ENV_VARS => {},
- );
+ };
# use a pipe for stdin in the child processes. This allows
# those processes to monitor the pipe for EOF to ensure they
# exit when the test script exits
pipe($STDIN_READER, $env->{STDIN_PIPE});
- my $pid = Samba::fork_and_exec($self, $env, \%daemon_ctx, $STDIN_READER);
+ my $pid = Samba::fork_and_exec($self, $env, $daemon_ctx, $STDIN_READER);
$env->{SAMBA_PID} = $pid;
$env->{KRB5_CONFIG} = "$prefix_abs/no_krb5.conf";