More SvPV consting

p4raw-id: //depot/perl@24743

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 5115e0342e..0e5fa70ce2 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -173,7 +173,7 @@ PP(pp_concat)
 	    mg_get(left);		/* or mg_get(left) may happen here */
 	if (!SvOK(TARG))
 	    sv_setpvn(left, "", 0);
-	(void)SvPV_nomg(left, llen);    /* Needed to set UTF8 flag */
+	(void)SvPV_nomg_const(left, llen);    /* Needed to set UTF8 flag */
 	lbyte = !DO_UTF8(left);
 	if (IN_BYTES)
 	    SvUTF8_off(TARG);