develooper Front page | perl.perl5.porters | Postings from June 2008

Re: [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel

Thread Previous
From:
Sebastien Rodriguez
Date:
June 10, 2008 06:43
Subject:
Re: [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel
Message ID:
dae038af0806100510w9ace29er6f9bf263b585321b@mail.gmail.com
Thank you,

It works !
I did not manage to find the SSH2.xs bug.
Thank you for your help.

How can we propose this correction to Mr Robins (the maintainer of the
Net::SSH2 module) ?

Kind regards !
Sebastien


On Tue, Jun 10, 2008 at 1:50 PM, Rafael Kitover via RT
<perlbug-followup@perl.org> wrote:
> patch here:
> http://rt.cpan.org/Ticket/Display.html?id=36614
> Does this look ok?
>
> On Wed May 28 08:55:02 2008, avarab@gmail.com wrote:
>> It fails here:
>>
>>     if(sv_isobject(ST(0)) && (SvTYPE(SvRV(ST(0))) == SVt_PVGV))
>>         ch = (SSH2_CHANNEL *)SvIVX((SV*)SvRV(ST(0)))
>>
>> It's using the PV slot of a GV to store a pointer to a custom
>> datastructure (similar to Math::Pari if I'm not mistaken). This
>> results in a failed assertion (but not a segfault) on my system:
>>
>> sh-3.1$ perl5.11.0  -Mblib -MNet::SSH2 -E 'my $ssh2 = Net::SSH2->new;
>> $ssh2->connect(q[localhost]) or die $!; if
>> ($ssh2->auth_password(qw(avar password))) { my $chan = $ssh2->channel;
>> $chan->exec(q[date]) }'
>> perl5.11.0: SSH2.c:2350: XS_Net__SSH2__Channel_process: Assertion
>> `!((((_svi)->sv_flags & (0x00004000|0x00008000)) == 0x00008000) &&
>> (((svtype)((_svi)->sv_flags & 0xff)) == SVt_PVGV ||
>> ((svtype)((_svi)->sv_flags & 0xff)) == SVt_PVLV))' failed.
>> Aborted
>>
>
>
>
>

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About