diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-02-11 08:24:43 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-11 08:24:43 +0000 |
| commit | 643126fb63308d38b74033c6e843ceb5be68b57c (patch) | |
| tree | b07515bfcf0ae4429c7e84d336ed47d5c7476c47 /ext/Safe | |
| parent | ed3c51d28e0c31b55d807a516934d20d66e5a6f4 (diff) | |
| download | perl-643126fb63308d38b74033c6e843ceb5be68b57c.tar.gz | |
perl 5.002gamma: ext/Safe/Safe.xs
Added +1 to maxo at Malcom's suggestion. AIX will probably stil
get bad free().
Diffstat (limited to 'ext/Safe')
| -rw-r--r-- | ext/Safe/Safe.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Safe/Safe.xs b/ext/Safe/Safe.xs index 8296262dd7..f970a626ac 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); |