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

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
>>
>
>
>
>

• Re: [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel by Sebastien Rodriguez
• [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel by Steve Peters via RT
• [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel by Steve Peters via RT
• [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel by Sebastien Rodriguez
• Re: [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel by Ævar Arnfjörð Bjarmason
• Re: [perl #54908] Perl 5.10 segmentation fault using Net::SSH2::Channel by Sebastien Rodriguez