More SvPV consting

p4raw-id: //depot/perl@24778

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 11a1ed64b0..16e724e452 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2832,14 +2832,14 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
 	}
 	case 'B':
 	case 'b': {
-	    char *str, *end;
+	    const char *str, *end;
 	    I32 l, field_len;
 	    U8 bits;
 	    bool utf8_source;
 	    U32 utf8_flags;
 
 	    fromstr = NEXTFROM;
-	    str = SvPV(fromstr, fromlen);
+	    str = SvPV_const(fromstr, fromlen);
 	    end = str + fromlen;
 	    if (DO_UTF8(fromstr)) {
 		utf8_source = TRUE;