This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.002gamma: ext/Safe/Safe.xs
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sun, 11 Feb 1996 08:24:43 +0000 (08:24 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Sun, 11 Feb 1996 08:24:43 +0000 (08:24 +0000)
Added +1 to maxo at Malcom's suggestion.  AIX will probably stil
get bad free().

ext/Safe/Safe.xs

index 8296262..f970a62 100644 (file)
@@ -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);