More SvPV consting

p4raw-id: //depot/perl@24769

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 8b305e8af9..d412ef8471 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2070,7 +2070,7 @@ got_it:
 				  (int) SvTYPE(sv));
 		}
 		prog->saved_copy = sv_setsv_cow(prog->saved_copy, sv);
-		prog->subbeg = SvPVX(prog->saved_copy);
+		prog->subbeg = (char *)SvPVX_const(prog->saved_copy);
 		assert (SvPOKp(prog->saved_copy));
 	    } else
 #endif