More SvPV consting.

p4raw-id: //depot/perl@24740

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 6d57ddca8c..b3c2f07018 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2750,7 +2750,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
 	    const char *aptr;
 
 	    fromstr = NEXTFROM;
-	    aptr = SvPV(fromstr, fromlen);
+	    aptr = SvPV_const(fromstr, fromlen);
 	    if (DO_UTF8(fromstr)) {
                 const char *end, *s;