- o->op_type = OP_CUSTOM;
- o->op_ppaddr = c->pp;
-
- if (last_arg)
- last_arg->op_sibling = NULL;
-
- op_free(rv2cv);
-
- if (c->check)
- o = CALL_FPTR(c->check)(aTHX_ o, c->ud);
-
- {
- so_op_name_t *on = PerlMemShared_malloc(sizeof(*on) + len);
- Copy(name, &on->buf, len, char);
- (&on->buf)[len] = '\0';
- on->len = len;
-#ifdef USE_ITHREADS
- MUTEX_LOCK(&so_op_name_mutex);
-#endif /* USE_ITHREADS */
- ptable_store(so_op_name, o, on);
-#ifdef USE_ITHREADS
- MUTEX_UNLOCK(&so_op_name_mutex);
-#endif /* USE_ITHREADS */
- }