Re: [perl #31923] use encoding "utf8" causes segfault

[Rafael Garcia-Suarez]

Konstantin Stopani (via RT) wrote:
> this code gives segmentation fault on my Fedora Core 2/linux-2.6.8.1
> 
> #!/usr/bin/perl -w
> use strict;
> use warnings;
> use threads;
> use threads::shared;
> use encoding "utf8"; # no segfault if remove
> 
> my $t = threads->new(\&fn);
> 
> sub fn {
>      print "hello\n";
> }

Reproduced here with bleadperl; apparently this comes from this bit in
ext/PerlIO/encoding/encoding.xs (function PerlIOEncode_getarg()) :

        /* Not 100% sure stack swap is right thing to do during dup ... */
        PUSHSTACKi(PERLSI_MAGIC);