[perl #113060] Save cop_stashlen threaded even with shared cop pv
authorReini Urban <rurban@x-ray.at>
Tue, 29 May 2012 20:46:13 +0000 (15:46 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 29 May 2012 21:55:19 +0000 (14:55 -0700)
commit014243a274e5fe909b0735ff5f198a4edc5f35c4
treee36848f8a6e1b2dcfaa6f5255a46e4bdc960e340
parent1b08e05188c16b744b6f2b0e2a2321db606eb88d
[perl #113060] Save cop_stashlen threaded even with shared cop pv

Perl_sv_compile_2op_is_broken() does at line 3354 a LEAVE_with_name("eval"),
a SSPOPSTR via SAVEt_SHARED_PVREF for the localized cop_stashpv, but
not for the cop_stashlen.
The cop in question is PL_compiling, which was "AutoSplit" before with
len=9 and restores it back to "main" but keeps len 9. Thus leading to a
heap-overflow in gv_stashpvn.
scope.h