version 1.29, 2007/05/26 16:00:30
|
version 1.30, 2007/06/12 23:48:45
|
Line 237 sub make_new_child {
|
Line 237 sub make_new_child {
|
return; |
return; |
} else { |
} else { |
# Child can *not* return from this subroutine. |
# Child can *not* return from this subroutine. |
$SIG{INT} = 'DEFAULT'; # make SIGINT kill us as it did before |
|
|
|
# unblock signals |
# unblock signals |
sigprocmask(SIG_UNBLOCK, $sigset) |
sigprocmask(SIG_UNBLOCK, $sigset) |
Line 246 sub make_new_child {
|
Line 246 sub make_new_child {
|
&logthis('New process started'); |
&logthis('New process started'); |
|
|
my $command=Expect->spawn('maxima'); |
my $command=Expect->spawn('maxima'); |
$command->log_stdout(0); |
# soft/hard_close can take awhile and we really |
|
# don't care we just want it gone |
|
$SIG{INT} = sub { |
|
my $pid = $command->pid(); |
|
kill('KILL'=>$pid); |
|
exit; |
|
}; |
|
|
|
$command->log_stdout(0); |
#$command->log_file("$execdir/logs/lonmaxima.session.log"); |
#$command->log_file("$execdir/logs/lonmaxima.session.log"); |
&getmaximaoutput($command); |
&getmaximaoutput($command); |
|
|