summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChip Salzenberg <chip@perl.com>1997-04-19 04:37:00 +1200
committerChip Salzenberg <chip@atlantic.net>1997-04-25 00:00:00 +1200
commit67a5ea69d3c966769b43a1bc3e0013153ca25831 (patch)
tree10617c980881294cf01d6151a0d5f4d8fc5b9ded
parent6a1b87e5041a5273b1c9d83ca925b79765943e03 (diff)
downloadperl-67a5ea69d3c966769b43a1bc3e0013153ca25831.tar.gz
Always NUL-terminate opsets
-rw-r--r--ext/Opcode/Opcode.xs2
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index 538f0ecf30..9d4b726536 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -117,7 +117,7 @@ new_opset(old_opset)
}
else {
opset = newSV(opset_len);
- Zero(SvPVX(opset), opset_len, char);
+ Zero(SvPVX(opset), opset_len + 1, char);
SvCUR_set(opset, opset_len);
(void)SvPOK_only(opset);
}