Lots of consting

p4raw-id: //depot/perl@24726

1 files changed, 2 insertions, 2 deletions

diff --git a/hv.c b/hv.c
index f1e80a9aec..f418972303 100644
--- a/hv.c
+++ b/hv.c
@@ -426,7 +426,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
     if (keysv) {
 	if (flags & HVhek_FREEKEY)
 	    Safefree(key);
-	key = SvPV(keysv, klen);
+	key = SvPV_const(keysv, klen);
 	flags = 0;
 	is_utf8 = (SvUTF8(keysv) != 0);
     } else {
@@ -942,7 +942,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
     if (keysv) {
 	if (k_flags & HVhek_FREEKEY)
 	    Safefree(key);
-	key = SvPV(keysv, klen);
+	key = SvPV_const(keysv, klen);
 	k_flags = 0;
 	is_utf8 = (SvUTF8(keysv) != 0);
     } else {