diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-08-07 09:04:20 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-09 19:28:33 -0700 |
| commit | fff2dea573c6a4eadf4c2df969590ce0b48e1777 (patch) | |
| tree | 50f905372b02afef48befbd9574513115e98fc9e /pp_ctl.c | |
| parent | 649c173f8c6054f378a811701c168f02aba60e46 (diff) | |
| download | perl-fff2dea573c6a4eadf4c2df969590ce0b48e1777.tar.gz | |
Respect SvLEN==0 and SvOOK in sv.c:sv_sethek
SvLEN==0 means this scalar does not own the buffer, so it should
not free it.
SvOOK means that SvPVX does not point to the start of the buffer
because we have cheated with s/...// or substr and not copied the
string back.
I don’t believe any such scalars currently make their way into
sv_sethek and get past the THINKFIRST check in that state, but we
should still play it safe.
SvPV_free handles both cases.
Diffstat (limited to 'pp_ctl.c')
0 files changed, 0 insertions, 0 deletions