#!/usr/bin/perl

use strict;
use warnings;
use lib "$ENV{PWD}";
use myConfig;

# create the objecto for write the db
our $c_config = myConfig->new();

# add default to the configuration db
$c_config->add_default ( default => 'aa' );
$c_config->_write_configuration();

##</code><code>##

### _write_configuration - store start

### _write_configuration - return

### DESTROY - start

### _write_configuration - store start
Segmentation fault

##</code><code>##

static int do_store(
        pTHX_
        PerlIO *f,
        SV *sv,
        int optype,
        int network_order,
        SV **res)
{
        dSTCXT;       <--- here
        int status;
        ...

##</code><code>##

SV *perinterp_sv = *hv_fetch(PL_modglobal,
    MY_VERSION, sizeof(MY_VERSION)-1, TRUE);
stcxt_t * cxt = ((perinterp_sv && SvIOK(perinterp_sv) && SvIVX(perinterp_sv)
    ? (stcxt_t *)SvPVX(SvRV(INT2PTR(SV*,SvIVX(perinterp_sv)))) : (stcxt_t *) 0));

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use lib "$ENV{PWD}";
use myConfig;

# create the objecto for write the db
our $c_config = myConfig->new();

# add default to the configuration db
$c_config->add_default ( default => 'aa' );
undef $c_config;