This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix a segfault in run-time qr//s with (?{})
authorDavid Mitchell <davem@iabyn.com>
Mon, 18 Mar 2013 16:41:42 +0000 (16:41 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 18 Mar 2013 16:41:42 +0000 (16:41 +0000)
commitda1f5b59634bdfea59787843016be4809df50836
tree32dfebcbf85eed4d0d7dce4074ad8ebd7ed84f17
parentcdac396140ede59138b67af076981d0438e36b8b
fix a segfault in run-time qr//s with (?{})

While assembling the regex, it was was examining CONSTs in the optree
using the wrong pad. When consts are moved into the pad on threaded
builds, segvs might be the result.
regcomp.c
t/re/pat_re_eval.t