Select Code to Download

Select or download this

#!/usr/bin/perl

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

Select or download this

### _write_configuration - store start

...

### _write_configuration - store start
Segmentation fault

Select or download this

static int do_store(
        pTHX_
...
        dSTCXT;       <--- here
        int status;
        ...

Select or download this

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

Select or download this

#!/usr/bin/perl

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