diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-01-31 16:16:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-12 10:44:38 +0000 |
| commit | 43a1600645d3a38ec94bb7a1c90813c610fb1534 (patch) | |
| tree | d65e96b8aeff8fdc69b4a8e2b222c83566e16f90 /toke.c | |
| parent | 93430cb427caeba01ba89b008008b46159a7c165 (diff) | |
| download | perl-43a1600645d3a38ec94bb7a1c90813c610fb1534.tar.gz | |
update change#2670 to later version
Message-Id: <199901311616.QAA17673@crypt.compulink.co.uk>
Subject: Re: [PATCH 5.005_54] Evalled substitution parsing
p4raw-link: @2670 on //depot/cfgperl: e9fa98b27b08c227248dead8a754ba7c9269fec0
p4raw-id: //depot/perl@2892
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1849,7 +1849,9 @@ int yylex(PERL_YYLEX_PARAM_DECL) PL_lex_state = LEX_INTERPCONCAT; return ')'; } - if (PL_lex_inwhat == OP_SUBST && PL_lex_repl && SvCOMPILED(PL_lex_repl)) { + if (PL_lex_inwhat == OP_SUBST && PL_linestr == PL_lex_repl + && SvCOMPILED(PL_lex_repl)) + { if (PL_bufptr != PL_bufend) croak("Bad evalled substitution pattern"); PL_lex_repl = Nullsv; |