diff options
| author | Tony Cook <tony@develop-help.com> | 2020-04-22 11:02:16 +1000 |
|---|---|---|
| committer | Sawyer X <xsawyerx@cpan.org> | 2020-05-27 11:09:11 +0300 |
| commit | 69d4d9c8182035ceb44091b35b4b34a326a6f058 (patch) | |
| tree | ca70aca6596871822967525b2993103bad1becee /pp.c | |
| parent | fe49b83f91941b25e49385588692490299cf9357 (diff) | |
| download | perl-69d4d9c8182035ceb44091b35b4b34a326a6f058.tar.gz | |
fix utf8 length magic handling for scalar reverse
fixes #17737
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5898,6 +5898,7 @@ PP(pp_reverse) sv_setsv(TARG, DEFSV); XPUSHs(TARG); } + SvSETMAGIC(TARG); /* remove any utf8 length magic */ up = SvPV_force(TARG, len); if (len > 1) { |