есть некий код - обертка над консольным приложением (вообще все это в
тестах происходит)
то есть обертка запускает консольку и помнит ее pid (общается с ней по
сокету), а деструктор делает нечто вроде следующего
sub DESTROY {
my ($self) = @_;
kill KILL => $self->{child};
waitpid $self->{child}, 0;
rmtree $self->{tempdir};
}
ну и все работало нормально.
Далее, поскольку консолька пускается во временной директории, то
решили добавить еще снятие бактрейса если консолька грохается в
сегфолт. сваяли нечто вроде следующего:
sub DESTROY {
my ($self) = @_;
if (-r $self->{core}) [
system "echo bt|gdb $self->{path} $self->{core}";
}
kill KILL => $self->{child} if $self->{child};
waitpid $self->{child}, 0;
rmtree $self->{tempdir};
}
и вот такой код приводит к тому что в пакете main такой вот код:
exit 123;
приводит к тому что приложение всегда возвращает 0 если был вызов
system.
вопрос: где баг и как правильно сделать?
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
