From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 3 Oct 2007 11:29:58 +0000 (+0000)
Subject: One const too much. (Unfortunately, the Copy macro casts
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8ae91a8d996e65182b5522ff8f511a834fac9c1;p=p5sagit%2Fp5-mst-13.2.git

One const too much. (Unfortunately, the Copy macro casts
the constness away, so the compiler cannot detect this.)

p4raw-id: //depot/perl@32014
---

diff --git a/doio.c b/doio.c
index b78b901..65adf91 100644
--- a/doio.c
+++ b/doio.c
@@ -2249,7 +2249,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
     if (shm == (char *)-1)	/* I hate System V IPC, I really do */
 	return -1;
     if (optype == OP_SHMREAD) {
-	const char *mbuf;
+	char *mbuf;
 	/* suppress warning when reading into undef var (tchrist 3/Mar/00) */
 	if (! SvOK(mstr))
 	    sv_setpvn(mstr, "", 0);