This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
save paren positions when running (?{}) code
authorDavid Mitchell <davem@iabyn.com>
Mon, 28 May 2012 15:44:38 +0000 (16:44 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:54 +0000 (13:32 +0100)
commit74088413856f71406615c6b1ae959e57f51d192a
tree6d63bba701a81661cb74eef12ced06efe3aa3275
parentec43f78b9ed51e88c9f6dd2f2ce15db067e4049f
save paren positions when running (?{}) code

Currently, all paren positions are saved before and after executing the
regops returned by (??{}); but not while the perl ops are being executed
beforehand. If the code happens to do a pattern match against the same
regex that's being currently run, then all iuts oparen positions will be
overwritten. So save them before entering the RUNOPS loop too.
regexec.c
t/re/pat_re_eval.t