Fix 'use encoding' I/O for code points 0x80..0xFF;

code changes from Inaba Hiroto; test tweaks by jhi.

p4raw-id: //depot/perl@18496

1 files changed, 2 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index e23a2ca7d3..3ae3764d58 100644
--- a/doio.c
+++ b/doio.c
@@ -1268,7 +1268,8 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
     default:
 	if (PerlIO_isutf8(fp)) {
 	    if (!SvUTF8(sv))
-		sv_utf8_upgrade(sv = sv_mortalcopy(sv));
+		sv_utf8_upgrade_flags(sv = sv_mortalcopy(sv),
+				      SV_GMAGIC|SV_UTF8_NO_ENCODING);
 	}
 	else if (DO_UTF8(sv)) {
 	    if (!sv_utf8_downgrade((sv = sv_mortalcopy(sv)), TRUE)