[P5P] [perl #37076] threads + 'require IO' causes segmentation fault

On Mon Sep 05 01:42:51 2005, ikegami@ni.aist.go.jp wrote:
This is a bug report for perl from ikegami@p06cmp000.asc.hpcc.jp,
generated with the help of perlbug 1.35 running under perl v5.8.7.


-----------------------------------------------------------------
[Please enter your report here]

On dual Opteron (2 GHz) machine, perl 5.8.7 frequently causes
segmentation fault with the following code snippet.

#!/usr/bin/perl
use threads;
use threads::shared;

sub socket () {
require IO;
return;
}

my $s = new threads \&socket;
my $c = new threads \&socket;

$s->join;
$c->join;

It is not reproducible by 100 %, and may not be reproducible on
slow/single-processor machines. As a workaround, put 'use IO'
somewhere. A stack trace taken from core file follows.