fix off-by-one in change#623 that broke lexical lookups in eval''

[p5sagit/p5-mst-13.2.git] / malloc.c

diff --git a/malloc.c b/malloc.c
index 2ddd8fe..f46c0c0 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -591,7 +591,7 @@ emergency_sbrk(size)
            return (char *)-1;          /* Now die die die... */
 
        /* Got it, now detach SvPV: */
-       pv = SvPV(sv, na);
+       pv = SvPV(sv, PL_na);
        /* Check alignment: */
        if (((u_bigint)(pv - M_OVERHEAD)) & ((1<<LOG_OF_MIN_ARENA) - 1)) {
            PerlIO_puts(PerlIO_stderr(),"Bad alignment of $^M!\n");