This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: f777953) | patch
s/${foo#}//e should be an error
authorFather Chrysostomos <sprout@cpan.org>
Fri, 31 Aug 2012 16:29:21 +0000 (09:29 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 31 Aug 2012 19:31:27 +0000 (12:31 -0700)
commit90a536e1429209983a0eb4bcdfe728d82726b3e9
tree290369af03815b8760689091aa1cb50c5c2ea967tree | snapshot
parentf777953f1a27fe4a456b4dc3acb1ea6332e12cedcommit | diff
s/${foo#}//e should be an error

See also the previous commit.

This one was caused by 9c74ccc.

Again, we can’t just check whether PL_lex_repl has the SvEVALED
flag set (which means we are in s///e), but must also check whether
PL_lex_repl == PL_linestr (which means we are in the replacement part
of s///e).
t/base/lex.t diff | blob | blame | history
toke.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.