This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
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
tree874cdbe5c48ff3d3c988fdb2b665bf042f1c33db
parent85df897fcfe76250deecfdeb239ba1e4279d8532
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