This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 32136 introduced an error - passing a const char * to
authorNicholas Clark <nick@ccl4.org>
Thu, 18 Oct 2007 19:21:50 +0000 (19:21 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 18 Oct 2007 19:21:50 +0000 (19:21 +0000)
sv_usepvn_flags(). Fixed.

p4raw-id: //depot/perl@32139

gv.c

diff --git a/gv.c b/gv.c
index 24dabf6..23c4e9f 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -213,7 +213,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
     dVAR;
     const U32 old_type = SvTYPE(gv);
     const bool doproto = old_type > SVt_NULL;
     dVAR;
     const U32 old_type = SvTYPE(gv);
     const bool doproto = old_type > SVt_NULL;
-    const char * const proto = (doproto && SvPOK(gv)) ? SvPVX_const(gv) : NULL;
+    char * const proto = (doproto && SvPOK(gv)) ? SvPVX(gv) : NULL;
     const STRLEN protolen = proto ? SvCUR(gv) : 0;
     SV *const has_constant = doproto && SvROK(gv) ? SvRV(gv) : NULL;
     const U32 exported_constant = has_constant ? SvPCS_IMPORTED(gv) : 0;
     const STRLEN protolen = proto ? SvCUR(gv) : 0;
     SV *const has_constant = doproto && SvROK(gv) ? SvRV(gv) : NULL;
     const U32 exported_constant = has_constant ? SvPCS_IMPORTED(gv) : 0;