diff options
author | Karl Williamson <khw@cpan.org> | 2019-03-18 19:48:48 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-03-19 10:24:29 -0600 |
commit | 40c725d15854de75b71b44c83af13d67b9112d53 (patch) | |
tree | 3d4a55a7aa56327ce5b9c397c44b3ee1f8001dc7 /pp_ctl.c | |
parent | 18c47def0203efccddd268e8d0635c40247ce2fa (diff) | |
download | perl-40c725d15854de75b71b44c83af13d67b9112d53.tar.gz |
pp_ctl.c: Use safe UTF8SKIP
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -781,7 +781,8 @@ PP(pp_formline) * for safety */ grow = linemax; while (linemark--) - s += UTF8SKIP(s); + s += UTF8_SAFE_SKIP(s, + (U8 *) SvEND(PL_formtarget)); linemark = s - (U8*)SvPVX(PL_formtarget); } /* Easy. They agree. */ |