diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-04-19 04:37:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-25 00:00:00 +1200 |
| commit | 67a5ea69d3c966769b43a1bc3e0013153ca25831 (patch) | |
| tree | 10617c980881294cf01d6151a0d5f4d8fc5b9ded | |
| parent | 6a1b87e5041a5273b1c9d83ca925b79765943e03 (diff) | |
| download | perl-67a5ea69d3c966769b43a1bc3e0013153ca25831.tar.gz | |
Always NUL-terminate opsets
| -rw-r--r-- | ext/Opcode/Opcode.xs | 2 |
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); } |