<div dir="ltr">I have committed two fixes to Perl:<div>One fixes the intermittent builds that I was experiencing. It turns out that CMake and Swig were both generating files named 'Makefile' in the build directory. Now the Perl files generate Makefile.perlswig instead.</div>
<div><br></div><div>The other fixes the seg fault on exit that was in your test case for me. I did it simply by conditionally compiling in the __str__ method of SWKey for Perl that was the source of the offense. It will now build in Python but not Perl. This fixes the Seg Fault for me in your minimal test case. Hopefully it doesn't break any expected functionality.</div>
<div><br></div><div>--Greg</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Tue, Aug 13, 2013 at 2:04 AM, Mark Trompell <span dir="ltr"><<a href="mailto:mark@foresightlinux.org" target="_blank">mark@foresightlinux.org</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Adding some more details:<br>
main::(Perlbindingstest.pl:4): my $mgr = new Sword::SWMgr();<br>
DB<1> l<br>
4==> my $mgr = new Sword::SWMgr();<br>
5: my $neu = $mgr->getModule("GerNeUe");<br>
6: my $key = new Sword::SWKey("Genesis 1:1");<br>
7: $neu->setKey($key);<br>
8: print $neu->renderText(),"\n";<br>
DB<1> n<br>
main::(Perlbindingstest.pl:5): my $neu = $mgr->getModule("GerNeUe");<br>
DB<1> n<br>
main::(Perlbindingstest.pl:6): my $key = new Sword::SWKey("Genesis 1:1");<br>
DB<1> n<br>
main::(Perlbindingstest.pl:7): $neu->setKey($key);<br>
DB<1> n<br>
main::(Perlbindingstest.pl:8): print $neu->renderText(),"\n";<br>
DB<1> s<br>
Sword::SWBuf::CODE(0x93a6c0)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:59):<br>
59: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
Sword::SWBuf::CODE(0x93a6c0)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:59):<br>
59: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
<div class="im">Im Anfang schuf Gott Himmel und Erde.<br>
</div>Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:968):<br>
968: return unless $_[0]->isa('HASH');<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:969):<br>
969: my $self = tied(%{$_[0]});<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:969):<br>
969: my $self = tied(%{$_[0]});<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:970):<br>
970: return unless defined $self;<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:971):<br>
971: delete $ITERATORS{$self};<br>
DB<1> s<br>
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):<br>
949: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:972):<br>
972: if (exists $OWNER{$self}) {<br>
DB<1> s<br>
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):<br>
949: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:973):<br>
973: Swordc::delete_SWKey($self);<br>
DB<1> s<br>
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):<br>
949: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):<br>
949: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:974):<br>
974: delete $OWNER{$self};<br>
DB<1> s<br>
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):<br>
949: '""' => sub { $_[0]->__str__()},<br>
DB<1> s<br>
<div class="im"><br>
Program received signal SIGSEGV, Segmentation fault.<br>
</div>0x00007ffff626ae73 in sword_SWKey___str__ (my_perl=<value optimized<br>
<div class="im HOEnZb">out>, cv=<value optimized out>)<br>
at Sword.cxx:2360<br>
2360 return const_cast<char *>(self->getText());<br>
<br>
<br>
</div><div class="HOEnZb"><div class="h5">On Tue, Aug 13, 2013 at 7:36 AM, Mark Trompell <<a href="mailto:mark@foresightlinux.org">mark@foresightlinux.org</a>> wrote:<br>
> This is all I can get out of debugging...<br>
> Program received signal SIGSEGV, Segmentation fault.<br>
> 0x00007ffff646ee73 in sword_SWKey___str__ (my_perl=<value optimized<br>
> out>, cv=<value optimized out>)<br>
> at Sword.cxx:2360<br>
> 2360 return const_cast<char *>(self->getText());<br>
><br>
> Probably not helpful at all...<br>
> btw it's r2955.<br>
><br>
> On Mon, Aug 12, 2013 at 8:53 AM, Mark Trompell <<a href="mailto:mark@foresightlinux.org">mark@foresightlinux.org</a>> wrote:<br>
>> With my little Perlprogramm I get a segmentation fault. I don't get<br>
>> them with a similiar python programm, how would I debug these?<br>
>><br>
>> $ ./Perlbindingstest.pl<br>
>> Im Anfang schuf Gott Himmel und Erde.<br>
>> Segmentation fault<br>
>><br>
>><br>
>> Perlbindingstest.pl:<br>
>> #!/usr/bin/perl<br>
>> use Sword;<br>
>><br>
>> my $mgr = new Sword::SWMgr();<br>
>> my $neu = $mgr->getModule("GerNeUe");<br>
>> my $key = new Sword::SWKey("Genesis 1:1");<br>
>> $neu->setKey($key);<br>
>> print $neu->renderText(),"\n";<br>
>><br>
>> Pythonbindingstest.py:<br>
>> #!/usr/bin/python<br>
>> import Sword<br>
>><br>
>> mgr = Sword.SWMgr()<br>
>> neu = mgr.getModule("GerNeUe")<br>
>> key = Sword.SWKey("Genesis 1:1")<br>
>> neu.setKey(key)<br>
>> print (neu.renderText())<br>
>><br>
>><br>
>> --<br>
>> Mark Trompell<br>
>><br>
>> Foresight Linux Xfce Edition<br>
>> Cause your desktop should be freaking cool<br>
>> (and Xfce)<br>
><br>
><br>
><br>
> --<br>
> Mark Trompell<br>
><br>
> Foresight Linux Xfce Edition<br>
> Cause your desktop should be freaking cool<br>
> (and Xfce)<br>
<br>
<br>
<br>
--<br>
Mark Trompell<br>
<br>
Foresight Linux Xfce Edition<br>
Cause your desktop should be freaking cool<br>
(and Xfce)<br>
<br>
_______________________________________________<br>
sword-devel mailing list: <a href="mailto:sword-devel@crosswire.org">sword-devel@crosswire.org</a><br>
<a href="http://www.crosswire.org/mailman/listinfo/sword-devel" target="_blank">http://www.crosswire.org/mailman/listinfo/sword-devel</a><br>
Instructions to unsubscribe/change your settings at above page<br>
</div></div></blockquote></div><br></div>