From: Chip Salzenberg <chip@perl.com>
Date: Fri, 18 Apr 1997 16:37:00 +0000 (+1200)
Subject: Always NUL-terminate opsets
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67a5ea69d3c966769b43a1bc3e0013153ca25831;p=p5sagit%2Fp5-mst-13.2.git

Always NUL-terminate opsets
---

diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index 538f0ec..9d4b726 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);
     }