diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-09 17:45:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-09 20:07:14 +0000 |
| commit | f54cb97a39f1a5849851e77a33524dfca2644cf5 (patch) | |
| tree | 63ac7dcf435b959ee157bc3bd9c11eb775192034 /gv.c | |
| parent | a0981a788197c6d427ceaf558d0dc8713c7737b3 (diff) | |
| download | perl-f54cb97a39f1a5849851e77a33524dfca2644cf5.tar.gz | |
attributes-two.patch, the next batch
Message-ID: <20050509154518.GA18273@petdance.com>
p4raw-id: //depot/perl@24431
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -34,8 +34,8 @@ Perl stores its global variables. #define PERL_IN_GV_C #include "perl.h" -const char S_autoload[] = "AUTOLOAD"; -const STRLEN S_autolen = sizeof(S_autoload)-1; +static const char S_autoload[] = "AUTOLOAD"; +static const STRLEN S_autolen = sizeof(S_autoload)-1; GV * Perl_gv_AVadd(pTHX_ register GV *gv) @@ -111,7 +111,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) dVAR; register GP *gp; const bool doproto = SvTYPE(gv) > SVt_NULL; - char *proto = (doproto && SvPOK(gv)) ? SvPVX(gv) : NULL; + const char * const proto = (doproto && SvPOK(gv)) ? SvPVX(gv) : NULL; sv_upgrade((SV*)gv, SVt_PVGV); if (SvLEN(gv)) { |