warnings and const violations identified by compiling in C++ mode

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

diff --git a/doio.c b/doio.c
index bf961f0..123815d 100644 (file)
--- 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