{
dPOPTOPssrl;
STRLEN len;
- U8 *s;
+ char *s;
bool left_utf = DO_UTF8(left);
bool right_utf = DO_UTF8(right);
}
else {
/* Set TARG to PV(left), then add right */
- U8 *l, *c;
+ char *l, *c;
STRLEN targlen;
if (TARG == right)
/* Need a safe copy elsewhere since we're just about to
/* And now copy, maybe upgrading right to UTF8 on the fly */
for (c = SvEND(TARG); *s; s++) {
if (*s & 0x80 && !right_utf)
- c = uv_to_utf8(c, *s);
+ c = (char*)uv_to_utf8((U8*)c, *s);
else
*c++ = *s;
}
/* delay EOF state for a snarfed empty file */
#define SNARF_EOF(gimme,rs,io,sv) \
(gimme != G_SCALAR || SvCUR(sv) \
- || !RsSNARF(rs) || (IoFLAGS(io) & IOf_NOLINE) \
- || ((IoFLAGS(io) |= IOf_NOLINE), FALSE))
+ || (IoFLAGS(io) & IOf_NOLINE) || !RsSNARF(rs))
for (;;) {
if (!sv_gets(sv, fp, offset)
SvTAINTED_on(sv);
}
IoLINES(io)++;
+ IoFLAGS(io) |= IOf_NOLINE;
SvSETMAGIC(sv);
XPUSHs(sv);
if (type == OP_GLOB) {
cx->blk_sub.savearray = GvAV(PL_defgv);
GvAV(PL_defgv) = (AV*)SvREFCNT_inc(av);
#endif /* USE_THREADS */
+ cx->blk_sub.oldcurpad = PL_curpad;
cx->blk_sub.argarray = av;
++MARK;