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 /op.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 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -4231,14 +4231,13 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) { dVAR; STRLEN n_a; - const char *name; const char *aname; GV *gv; char *ps; register CV *cv=0; SV *const_sv; - name = o ? SvPVx(cSVOPo->op_sv, n_a) : Nullch; + const char * const name = o ? SvPVx(cSVOPo->op_sv, n_a) : Nullch; if (proto) { assert(proto->op_type == OP_CONST); |