From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 11 Feb 1996 08:24:43 +0000 (+0000)
Subject: perl 5.002gamma: ext/Safe/Safe.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=643126fb63308d38b74033c6e843ceb5be68b57c;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002gamma: ext/Safe/Safe.xs

Added +1 to maxo at Malcom's suggestion.  AIX will probably stil
get bad free().
---

diff --git a/ext/Safe/Safe.xs b/ext/Safe/Safe.xs
index 8296262..f970a62 100644
--- a/ext/Safe/Safe.xs
+++ b/ext/Safe/Safe.xs
@@ -19,7 +19,7 @@ safe_call_sv(package, mask, codesv)
 	save_hptr(&defstash);
 	save_aptr(&endav);
 	SAVEPPTR(op_mask);
-	Newz(666, op_mask, maxo, char);
+	Newz(666, op_mask, maxo+1, char);
 	SAVEFREEPV(op_mask);
 	str = SvPV(mask, len);
 	if (maxo != len)
@@ -63,7 +63,7 @@ ops_to_mask(...)
     CODE:
 	int i, j;
 	char *mask, *op;
-	Newz(666, mask, maxo, char);
+	Newz(666, mask, maxo+1, char);
 	for (i = 0; i < items; i++)
 	{
 	    op = SvPV(ST(i), na);