In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/9842f1a008ea4490ae903e34ed554be5e0ffc139?hp=5aa2c25117b23d4f61a07c718e7c20314b056fd4>
- Log -----------------------------------------------------------------
commit 9842f1a008ea4490ae903e34ed554be5e0ffc139
Author: Aaron Crane <a...@cpan.org>
Date: Fri Dec 8 10:17:30 2017 +0000
RT#132545: memory leak in S_init_main_stash()
-----------------------------------------------------------------------
Summary of changes:
perl.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/perl.c b/perl.c
index 25b4a26740..a81ffd0eb0 100644
--- a/perl.c
+++ b/perl.c
@@ -3783,8 +3783,9 @@ STATIC void
S_init_main_stash(pTHX)
{
GV *gv;
+ HV *hv = newHV();
- PL_curstash = PL_defstash = (HV *)SvREFCNT_inc_simple_NN(newHV());
+ PL_curstash = PL_defstash = (HV *)SvREFCNT_inc_simple_NN(hv);
/* We know that the string "main" will be in the global shared string
table, so it's a small saving to use it rather than allocate another
8 bytes. */
--
Perl5 Master Repository
