diff options
author | Niels Thykier <niels@thykier.net> | 2013-07-17 20:59:54 +0200 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-07-19 10:11:00 -0700 |
commit | 3513c7400a8b4d83055235684e2c6a0c5d89b061 (patch) | |
tree | 6bf34df5340e935f51ba6a92b67c90eee37d8c58 /toke.c | |
parent | 2cc6fe62efccaf47e15982ddbe988a976469d887 (diff) | |
download | perl-3513c7400a8b4d83055235684e2c6a0c5d89b061.tar.gz |
op.c: Add op_folded to BASEOP
Add a new member, op_folded, to BASEOP. It is replacement for
OPpCONST_FOLDED (which can only be set on OP_CONST). At the moment
OPpCONST_FOLDED remains, as it is exposed in B (e.g. B::Concise relies
on it).
Signed-off-by: Niels Thykier <niels@thykier.net>
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -7393,6 +7393,7 @@ Perl_yylex(pTHX) SvREFCNT_dec(((SVOP*)pl_yylval.opval)->op_sv); ((SVOP*)pl_yylval.opval)->op_sv = SvREFCNT_inc_simple(sv); pl_yylval.opval->op_private = OPpCONST_FOLDED; + pl_yylval.opval->op_folded = 1; pl_yylval.opval->op_flags |= OPf_SPECIAL; TOKEN(WORD); } |