Disable the UTF8 downgrade croakage for now to avoid

too many not okay messages.

p4raw-id: //depot/perl@7357

1 files changed, 2 insertions, 0 deletions

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