sub_op_config_t *dupe = PerlMemShared_malloc(sizeof *dupe);
len = orig->namelen;
- if (len && orig->name) {
- dupe->name = PerlMemShared_malloc(len);
+ if (orig->name) {
+ dupe->name = PerlMemShared_malloc(len + 1);
Copy(orig->name, dupe->name, len, char);
+ ((char *) dupe->name)[len] = '\0';
} else {
dupe->name = NULL;
}