tmps = SvPV_const(sv, len);
if (PerlIO_isutf8(fp)) {
if (!SvUTF8(sv)) {
+ const STRLEN origlen = len;
/* We don't modify the original scalar. */
tmpbuf = bytes_to_utf8((const U8*) tmps, &len);
tmps = (char *) tmpbuf;
+ if (ckWARN(WARN_UTF8) && len != origlen) {
+ Perl_warner(aTHX_ packWARN(WARN_UTF8),
+ "Variable length character upgraded in print");
+ }
}
}
else if (DO_UTF8(sv)) {