In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bf01568a4bfab00fb5180c6b243ef3c90ca3ebd6?hp=322c25164008331c3663036fb459ad70b8d1724c>
- Log ----------------------------------------------------------------- commit bf01568a4bfab00fb5180c6b243ef3c90ca3ebd6 Author: Father Chrysostomos <[email protected]> Date: Sat Oct 23 09:48:31 2010 -0700 S_glob_assign_glob was using a potentially freed HV ----------------------------------------------------------------------- Summary of changes: sv.c | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/sv.c b/sv.c index 8db10dc..a091bf0 100644 --- a/sv.c +++ b/sv.c @@ -3629,7 +3629,11 @@ S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype) /* Set aside the old stash, so we can reset isa caches on its subclasses. */ - old_stash = GvHV(dstr); + if((old_stash = GvHV(dstr))) + /* Make sure we do not lose it early. */ + SvREFCNT_inc_simple_void_NN( + sv_2mortal((SV *)old_stash) + ); } } } -- Perl5 Master Repository
