diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-10 09:36:35 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-10 19:19:56 +0000 |
| commit | 890ce7af62ab97fd07b5b49562f13e94286469fb (patch) | |
| tree | 1c0a0d9c2b7328ef80d147d63dae1ef46a612d92 /op.c | |
| parent | 108bb1ada68a74e70f8cfe3683513fea5b30f778 (diff) | |
| download | perl-890ce7af62ab97fd07b5b49562f13e94286469fb.tar.gz | |
Making my way thru embed.fnc
Message-ID: <20050710193635.GC8081@petdance.com>
p4raw-id: //depot/perl@25107
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1636,7 +1636,7 @@ Perl_apply_attrs_string(pTHX_ const char *stashpv, CV *cv, while (len) { for (; isSPACE(*attrstr) && len; --len, ++attrstr) ; if (len) { - const char *sstr = attrstr; + const char * const sstr = attrstr; for (; !isSPACE(*attrstr) && len; --len, ++attrstr) ; attrs = append_elem(OP_LIST, attrs, newSVOP(OP_CONST, 0, @@ -4157,7 +4157,7 @@ Perl_op_const_sv(pTHX_ const OP *o, CV *cv) o = cLISTOPo->op_first->op_sibling; for (; o; o = o->op_next) { - OPCODE type = o->op_type; + const OPCODE type = o->op_type; if (sv && o->op_next == o) return sv; |