1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index b78b901a14..65adf910d5 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);