summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2011-05-28 15:17:37 +0100
committerDavid Mitchell <davem@iabyn.com>2011-05-29 20:21:53 +0100
commita2c0032b06b9fa4a6d26a50dc6e736c05e4fcb09 (patch)
tree60bc70b145426afbdc4999c8a09b078dcfc3a3cd
parent4ff700b95e237f7cbe602fd953867428ee836122 (diff)
downloadperl-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.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 3304eacde2..271ab0549a 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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,