Yet another interface to SWI-Prolog in mod_perl

I am trying to run the Yaswi
http://search.cpan.org/~salva/Language-Prolog-Yaswi-0.14/Yas wi.pm
module in mod_perl,

use CGI qw(:standard);
print header;

use Language::Prolog::Yaswi qw(:query :run);
use Language::Prolog::Types::overload;
use Language::Prolog::Sugar functors => { equal => '=',
is => 'is' },
chains => { orn => ';',
andn => ',',
add => '+' },
vars => [qw (X Y Z)];

swi_set_query( equal(X, Y),
orn( equal(X, 27),
equal(Y, 'hello')));

while (swi_next) {
printf "Query=".swi_query()."\n";
printf " X=%_, Y=%_\n\n", swi_var(X), swi_var(Y);
}




at first I got error

[PROLOG SYSTEM ERROR: Thread 1
Recursively received fatal signal 11

PROLOG STACK:
]


It happend to solve that problem in Java, we need to add -nosignals
So I add
swi_init('-nosignals');

But now I got errors of
[Thu May 22 17:07:48 2008] [notice] child pid 13466 exit signal
Segmentation fault (11)
[Thu May 22 17:07:48 2008] [notice] child pid 13492 exit signal
Segmentation fault (11)
[Thu May 22 17:07:48 2008] [notice] child pid 13493 exit signal
Segmentation fault (11)
[Thu May 22 17:07:48 2008] [notice] child pid 13494 exit signal
Segmentation fault (11)
[Thu May 22 17:07:48 2008] [notice] child pid 13495 exit signal
Segmentation fault (11)


Is it possible to run Yaswi in mod_perl ? I got not problem when using
CGI, Thanks.