This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ensure regex evals report the right location
authorDavid Mitchell <davem@iabyn.com>
Fri, 30 Mar 2012 15:30:26 +0000 (16:30 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:50 +0000 (13:32 +0100)
commit2e2e3f36ef0a7bee034eac9575fdb70698beec72
tree182106d03b9f1f08548eb1536423f4e8d4cac4da
parentd24ca0c5f11250dcd2552c84a048bda5786ba8d1
ensure regex evals report the right location

make sure that PL_curcop is set correctly on entry to a regex code block,
since (unlike a normal eval) there isn't always an initial OP_NEXTSTATE to
cause it to get set.  Otherwise, warning messages etc in the first
statement of the code block will appear to come from the wrong place.
regcomp.c
regexec.c
t/re/pat_re_eval.t