More SvPV consting

p4raw-id: //depot/perl@24769

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index bcf6291c30..257d53d8d8 100644
--- a/mg.c
+++ b/mg.c
@@ -1289,7 +1289,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
     SV* save_sv;
 #endif
 
-    register const char *s = MgPV(mg,len);
+    register const char *s = MgPV_const(mg,len);
     if (*s == '_') {
 	if (strEQ(s,"__DIE__"))
 	    svp = &PL_diehook;