[sword-devel] Segmentation fault in Perl bindings.

[Mark Trompell]

Adding some more details:
main::(Perlbindingstest.pl:4):	my $mgr = new Sword::SWMgr();
  DB<1> l
4==>	my $mgr = new Sword::SWMgr();
5:	my $neu = $mgr->getModule("GerNeUe");
6:	my $key = new Sword::SWKey("Genesis 1:1");
7:	$neu->setKey($key);
8:	print $neu->renderText(),"\n";
  DB<1> n
main::(Perlbindingstest.pl:5):	my $neu = $mgr->getModule("GerNeUe");
  DB<1> n
main::(Perlbindingstest.pl:6):	my $key = new Sword::SWKey("Genesis 1:1");
  DB<1> n
main::(Perlbindingstest.pl:7):	$neu->setKey($key);
  DB<1> n
main::(Perlbindingstest.pl:8):	print $neu->renderText(),"\n";
  DB<1> s
Sword::SWBuf::CODE(0x93a6c0)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:59):
59:	    '""' => sub { $_[0]->__str__()},
  DB<1> s
Sword::SWBuf::CODE(0x93a6c0)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:59):
59:	    '""' => sub { $_[0]->__str__()},
  DB<1> s
Im Anfang schuf Gott Himmel und Erde.
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:968):
968:	    return unless $_[0]->isa('HASH');
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:969):
969:	    my $self = tied(%{$_[0]});
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:969):
969:	    my $self = tied(%{$_[0]});
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:970):
970:	    return unless defined $self;
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:971):
971:	    delete $ITERATORS{$self};
  DB<1> s
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):
949:	    '""' => sub { $_[0]->__str__()},
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:972):
972:	    if (exists $OWNER{$self}) {
  DB<1> s
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):
949:	    '""' => sub { $_[0]->__str__()},
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:973):
973:	        Swordc::delete_SWKey($self);
  DB<1> s
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):
949:	    '""' => sub { $_[0]->__str__()},
  DB<1> s
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):
949:	    '""' => sub { $_[0]->__str__()},
  DB<1> s
Sword::SWKey::DESTROY(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:974):
974:	        delete $OWNER{$self};
  DB<1> s
Sword::SWKey::CODE(0xb3fb90)(/usr/lib64/perl5/site_perl/5.8.8/Sword.pm:949):
949:	    '""' => sub { $_[0]->__str__()},
  DB<1> s

Program received signal SIGSEGV, Segmentation fault.
0x00007ffff626ae73 in sword_SWKey___str__ (my_perl=<value optimized
out>, cv=<value optimized out>)
    at Sword.cxx:2360
2360	                        return const_cast<char *>(self->getText());


On Tue, Aug 13, 2013 at 7:36 AM, Mark Trompell <mark at foresightlinux.org> wrote:
> This is all I can get out of debugging...
> Program received signal SIGSEGV, Segmentation fault.
> 0x00007ffff646ee73 in sword_SWKey___str__ (my_perl=<value optimized
> out>, cv=<value optimized out>)
>     at Sword.cxx:2360
> 2360                            return const_cast<char *>(self->getText());
>
> Probably not helpful at all...
> btw it's r2955.
>
> On Mon, Aug 12, 2013 at 8:53 AM, Mark Trompell <mark at foresightlinux.org> wrote:
>> With my little Perlprogramm I get a segmentation fault. I don't get
>> them with a similiar python programm, how would I debug these?
>>
>> $ ./Perlbindingstest.pl
>> Im Anfang schuf Gott Himmel und Erde.
>> Segmentation fault
>>
>>
>> Perlbindingstest.pl:
>> #!/usr/bin/perl
>> use Sword;
>>
>> my $mgr = new Sword::SWMgr();
>> my $neu = $mgr->getModule("GerNeUe");
>> my $key = new Sword::SWKey("Genesis 1:1");
>> $neu->setKey($key);
>> print $neu->renderText(),"\n";
>>
>> Pythonbindingstest.py:
>> #!/usr/bin/python
>> import Sword
>>
>> mgr = Sword.SWMgr()
>> neu = mgr.getModule("GerNeUe")
>> key = Sword.SWKey("Genesis 1:1")
>> neu.setKey(key)
>> print (neu.renderText())
>>
>>
>> --
>> Mark Trompell
>>
>> Foresight Linux Xfce Edition
>> Cause your desktop should be freaking cool
>> (and Xfce)
>
>
>
> --
> Mark Trompell
>
> Foresight Linux Xfce Edition
> Cause your desktop should be freaking cool
> (and Xfce)



-- 
Mark Trompell

Foresight Linux Xfce Edition
Cause your desktop should be freaking cool
(and Xfce)