On output try to downgrade to bytes, croak if impossible,

from Simon Cozens.  This means that outputting >255 UTF8
is impossible.  Consider this as a strong incentive to get
the I/O disciplines implemented.

p4raw-id: //depot/perl@7355

1 files changed, 3 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index 2f78bc9509..52dfd6db7d 100644
--- a/doio.c
+++ b/doio.c
@@ -1186,6 +1186,9 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 	}
 	/* FALL THROUGH */
     default:
+	/* XXX Fix this when the I/O disciplines arrive. XXX */
+	if (DO_UTF8(sv))
+	    sv_utf8_downgrade(sv, FALSE);
 	tmps = SvPV(sv, len);
 	break;
     }