diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-18 19:21:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-18 19:21:50 +0000 |
| commit | 024963f8e0e4bfbd631d6878a69f86cabc760a32 (patch) | |
| tree | 86c4476c1707f3d50cbd2b025f9fd6361fef6a44 /gv.c | |
| parent | 5ab7ff9835a1d1b96af849579ce604bb74101206 (diff) | |
| download | perl-024963f8e0e4bfbd631d6878a69f86cabc760a32.tar.gz | |
Change 32136 introduced an error - passing a const char * to
sv_usepvn_flags(). Fixed.
p4raw-id: //depot/perl@32139
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; - 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; |