summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorNiels Thykier <niels@thykier.net>2013-07-17 20:59:54 +0200
committerFather Chrysostomos <sprout@cpan.org>2013-07-19 10:11:00 -0700
commit3513c7400a8b4d83055235684e2c6a0c5d89b061 (patch)
tree6bf34df5340e935f51ba6a92b67c90eee37d8c58 /toke.c
parent2cc6fe62efccaf47e15982ddbe988a976469d887 (diff)
downloadperl-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.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/toke.c b/toke.c
index a8ce485cb3..2ab2a71e0f 100644
--- a/toke.c
+++ b/toke.c
@@ -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);
}