Free detritus when croaking with /(?{})$invalid/
authorFather Chrysostomos <sprout@cpan.org>
Thu, 1 Nov 2012 13:19:28 +0000 (06:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 2 Nov 2012 01:09:59 +0000 (18:09 -0700)
commit2032cc0cf0dc385ead62c081c08e0a66c2150481
treebb78353d4694d7c518e619c5164fcd2079dd3de2
parent2ac1304871ec6cab968bd70b187c30f52d230288
Free detritus when croaking with /(?{})$invalid/

This script was leaking:

$ ./miniperl -e 'warn $$; $x = ")"; while( 1){ eval { /(?{})$x/ }; }'

The mallocked array that is allocated before compilation to hold the
code blocks was not being protected properly around the first pass of
compilation.
regcomp.c