diff options
author | David Mitchell <davem@iabyn.com> | 2011-05-28 15:17:37 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-05-29 20:21:53 +0100 |
commit | a2c0032b06b9fa4a6d26a50dc6e736c05e4fcb09 (patch) | |
tree | 60bc70b145426afbdc4999c8a09b078dcfc3a3cd | |
parent | 4ff700b95e237f7cbe602fd953867428ee836122 (diff) | |
download | perl-a2c0032b06b9fa4a6d26a50dc6e736c05e4fcb09.tar.gz |
pp_formline: split FF_LINEGLOB into two blocks
The second block is shortly going to be used by others too
-rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -892,7 +892,6 @@ PP(pp_formline) const bool oneline = fpc[-1] == FF_LINESNGL; const char *s = item = SvPV_const(sv, len); const char *const send = s + len; - U8 *tmp = NULL; item_is_utf8 = DO_UTF8(sv); itemsize = len; @@ -917,6 +916,10 @@ PP(pp_formline) } } } + } + + { + U8 *tmp = NULL; if (targ_is_utf8 && !item_is_utf8) { source = tmp = bytes_to_utf8(source, &to_copy); SvCUR_set(PL_formtarget, |