} elsif (defined(get_running_env($envname))) {
$testenv_vars = get_running_env($envname);
if (not $target->check_env($testenv_vars)) {
+ print $self->getlog_env($testenv_vars);
$testenv_vars = undef;
}
} else {
}
unlink($env_vars->{SAMBA_TEST_FIFO});
my $exit = $? >> 8;
- if ( $ret == 0 ) {
+ if ($ret == 0) {
print "$samba exits with status $exit\n";
} elsif ( $ret & 127 ) {
print "$samba got signal ".($ret & 127)." and exits with $exit!\n";
{
my ($self, $envvars) = @_;
- return 1 if (-p $envvars->{SAMBA_TEST_FIFO});
-
- print $self->getlog_env($envvars);
-
- return 0;
+ return (-p $envvars->{SAMBA_TEST_FIFO});
}
sub setup_env($$$)