diff options
| author | David Mitchell <davem@iabyn.com> | 2011-09-12 14:32:11 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-12-19 15:06:01 +0000 |
| commit | 53be7ebc2bd18fe3ff34561d6a0563318ca4c711 (patch) | |
| tree | 828b46c433a9deaaa33fb0644f9c20812cd779a6 | |
| parent | bdd643fb5cdb1f504ab1a891549d8ce41bb07349 (diff) | |
| download | perl-53be7ebc2bd18fe3ff34561d6a0563318ca4c711.tar.gz | |
make recent re_eval changes compile under -Dmad
Note that this doesn't mean that MAD output is correct; I haven't tested
that. In particular, I have no idea when and how CURMAD() is supposed to
be used.
| -rw-r--r-- | toke.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -4630,6 +4630,8 @@ Perl_yylex(pTHX) PL_bufptr += 2; if (*PL_bufptr != '{') PL_bufptr++; + start_force(PL_curforce); + /* XXX probably need a CURMAD(something) here */ PL_expect = XTERMBLOCK; force_next(DO); } @@ -4685,7 +4687,9 @@ Perl_yylex(pTHX) PL_bufptr++; /* having compiled a (?{..}) expression, return the original * text too, as a const */ - PL_nextval[PL_nexttoke].opval = + start_force(PL_curforce); + /* XXX probably need a CURMAD(something) here */ + NEXTVAL_NEXTTOKE.opval = (OP*)newSVOP(OP_CONST, 0, newSVpvn(PL_sublex_info.re_eval_start, PL_bufptr - PL_sublex_info.re_eval_start)); |