This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix SEGV with eval("package Foo {")
authorZefram <zefram@fysh.org>
Sat, 1 May 2010 16:30:26 +0000 (17:30 +0100)
committerDavid Golden <dagolden@cpan.org>
Thu, 20 May 2010 22:56:11 +0000 (18:56 -0400)
commitaf5050ac60ae083ebc5a0b2a1b4289c51c622f95
treeb4d5a78625ea9b53923f18ad6a8ceb5756c09bfc
parent4e4da3acc11d96d134ed1dc0effd641e7bedb0ca
fix SEGV with eval("package Foo {")

OPs relating to the package name and version were subject to double
freeing during error recovery from an incomplete package block.  Fixed by
using the op_latefree mechanism to shift the op free time.
perly.act
perly.tab
perly.y
t/comp/package_block.t