gistfile1.pl

# Individually change to any of the "no segfault" versions and it works.

use strict;
use warnings;

use threads;
use threads::shared;

use TB2::TestState;

{
    my %defaults;          # segfault
#    my %defaults :shared;  # no segfault
    sub default {
        my $class = shift;

        if( !$defaults{$class} ) {
            my $o = $class->create;

            # See TB2::CanThread for the shared_clone wrapper
            $o = $o->shared_clone($o);  # segfault
            # $o = shared_clone($o);    # no segfault
            $defaults{$class} = $o;
        }

        return $defaults{$class};
    }
}

print default("TB2::TestState");        # segfault

# my %defaults;
# $defaults{"TB2::TestState"} = TB2::TestState->make_default;         # no segfault