- dupe->namelen = orig->namelen;
- dupe->name = PerlMemShared_malloc(dupe->namelen);
- Copy(orig->name, dupe->name, dupe->namelen, char);
+ len = orig->namelen;
+ if (len && orig->name) {
+ dupe->name = PerlMemShared_malloc(len);
+ Copy(orig->name, dupe->name, len, char);
+ } else {
+ dupe->name = NULL;
+ }
+ dupe->namelen = len;
+