This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 85df897) | patch
fix CvFILE() leak in Perl_newMYSUB()
authorDavid Mitchell <davem@iabyn.com>
Tue, 26 Mar 2019 12:33:46 +0000 (12:33 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 26 Mar 2019 12:49:25 +0000 (12:49 +0000)
commit8db8ad8f4f7c0b2268caff3af198d224d63cf337
tree874cdbe5c48ff3d3c988fdb2b665bf042f1c33dbtree | snapshot
parent85df897fcfe76250deecfdeb239ba1e4279d8532commit | diff
fix CvFILE() leak in Perl_newMYSUB()

This is basically the same as my recent fix for Perl_newATTRSUB_x(),
v5.29.8-46-gb37d10f658.

When overwriting cv with the contents of PL_compcv, it was checking the
CvDYNFILE(cv) flag (to see if CvFILE(cv) needed freeing) *after*
overwriting cv's flags with PL_compcv's flag.
op.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.