Description of problem:

perl segmentation fault when using PerlIO Layer :locale and threads


Version-Release number of selected component (if applicable):

Red Hat Enterprise Linux Server release 7.2


How reproducible:

~~~~
[root@dhcp7-145 abhi]# perl
use open IO => ':locale';
use threads;
sub loop {for ($x = 1; $x < 1000000000000; $x++) {}}
$thr = threads->create(\&loop);
^d

Segmentation fault (core dumped)
~~~~


The script should not core dump but print a message like it does when run without the "open" pragma.

# perl
use threads;
sub loop {for ($x = 1; $x < 1000000000000; $x++) {}}
$thr = threads->create(\&loop);
^d
Perl exited with active threads:
        1 running and unjoined
        0 finished and unjoined
        0 running and detached


Additional info:

1. the crash is in the PUSHSTACKi(PERLSI_MAGIC); expansion

2. looks like a very old bug :( http://www.gossamer-threads.com/lists/perl/porters/219693) and it appears to have been fixed in 2015, so maybe our perl is missing it 

3. link to report is 
~~~
https://rt.perl.org/Public/Bug/Display.html?id=44887
~~~

and link to patch is 
~~~
https://rt.perl.org/Public/Ticket/Attachment/1362828/730066/0001-Properly-duplicate-PerlIO-encoding-objects.patch
~~~