X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=Op.xs;h=d6dc30c3a9ebda75a9d9218b904bc1c2e58c89ec;hp=6a71219845dace3c81e3860b18970d4fddd3e3fe;hb=984cdc340cbc0920a576e89f27fe9ea3ea50feba;hpb=ed64994ebe8a4c0c1d4a23b9ebdce3ea39c098cf

diff --git a/Op.xs b/Op.xs
index 6a71219..d6dc30c 100644
--- a/Op.xs
+++ b/Op.xs
@@ -150,9 +150,10 @@ sub_op_config_t *sub_op_dup(pTHX_ const sub_op_config_t *orig) {
  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;
  }