X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=123815d2f4c72487a74d6aefc88cbb797cf3dd3c;hb=dff6d3cd91bb8f94ad6445629f3bfb07c761a04e;hp=bf961f0c077d6df5482e81cea36caccbac001f30;hpb=12b99c3939cdc258628e89c11e6677725b2947c0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index bf961f0..123815d 100644
--- a/doio.c
+++ b/doio.c
@@ -168,7 +168,7 @@ Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	if (fd == -1)
 	    fp = NULL;
 	else {
-	    char *fpmode;
+	    const char *fpmode;
 	    if (result == O_RDONLY)
 		fpmode = "r";
 #ifdef O_APPEND