1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 95abbf6f16..797b57e74a 100644
--- a/mg.c
+++ b/mg.c
@@ -762,7 +762,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 {
     dVAR;
     register I32 paren;
-    register char *s = NULL;
+    register const char *s = NULL;
     register REGEXP *rx;
     const char * const remaining = mg->mg_ptr + 1;
     const char nextchar = *remaining;