We will need "protolen" later.
if (!PL_custom_op_names)
PL_custom_op_names = newHV();
if (!PL_custom_op_names)
PL_custom_op_names = newHV();
- (void) hv_store_ent(PL_custom_op_names, key, newSVpv(c->name, c->len), 0);
+ (void) hv_store_ent(PL_custom_op_names, key, newSVpv(c->name, c->namelen), 0);
if (!PL_custom_op_descs)
PL_custom_op_descs = newHV();
if (!PL_custom_op_descs)
PL_custom_op_descs = newHV();
- (void) hv_store_ent(PL_custom_op_descs, key, newSVpv(c->name, c->len), 0);
+ (void) hv_store_ent(PL_custom_op_descs, key, newSVpv(c->name, c->namelen), 0);
if (c->check) {
SV *check = newSViv(PTR2IV(c->check));
if (c->check) {
SV *check = newSViv(PTR2IV(c->check));
- (void) hv_store(MY_CXT.map, c->name, c->len, key, 0);
+ (void) hv_store(MY_CXT.map, c->name, c->namelen, key, 0);
BOOT:
{
sub_op_config_t c;
BOOT:
{
sub_op_config_t c;
- c.name = "reftype";
- c.len = sizeof("reftype")-1;
- c.pp = scalar_util_reftype;
- c.check = 0;
- c.ud = NULL;
+ c.name = "reftype";
+ c.namelen = sizeof("reftype")-1;
+ c.pp = scalar_util_reftype;
+ c.check = 0;
+ c.ud = NULL;
sub_op_register(aTHX_ &c);
}
sub_op_register(aTHX_ &c);
}
C<name>'s length, in bytes.
C<name>'s length, in bytes.
typedef struct {
const char *name;
typedef struct {
const char *name;
Perl_ppaddr_t pp;
sub_op_check_t check;
void *ud;
Perl_ppaddr_t pp;
sub_op_check_t check;
void *ud;
if (SvROK(cb)) {
cb = SvRV(cb);
if (SvTYPE(cb) >= SVt_PVCV) {
if (SvROK(cb)) {
cb = SvRV(cb);
if (SvTYPE(cb) >= SVt_PVCV) {
- c.name = SvPV_const(name, c.len);
+ c.name = SvPV_const(name, c.namelen);
c.check = sols_check;
c.ud = SvREFCNT_inc(cb);
c.pp = sols_pp;
c.check = sols_check;
c.ud = SvREFCNT_inc(cb);
c.pp = sols_pp;