Use PL_op_desc rather than literal strings in pp_ioctl

[perl5.git] / malloc.c

diff --git a/malloc.c b/malloc.c
index 4ec2174..a331550 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -2354,7 +2354,7 @@ Perl_putenv(char *a)
 MEM_SIZE
 Perl_malloced_size(void *p)
 {
-    union overhead *ovp = (union overhead *)
+    union overhead * const ovp = (union overhead *)
        ((caddr_t)p - sizeof (union overhead) * CHUNK_SHIFT);
     const int bucket = OV_INDEX(ovp);
 #ifdef RCHECK