More SvPV consting.

p4raw-id: //depot/perl@24740

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index cd9ab4cd9a..ae831e4f8a 100644
--- a/util.c
+++ b/util.c
@@ -839,7 +839,7 @@ char *
 Perl_savesvpv(pTHX_ SV *sv)
 {
     STRLEN len;
-    const char *pv = SvPV(sv, len);
+    const char *pv = SvPV_const(sv, len);
     register char *newaddr;
 
     ++len;