Disable the UTF8 downgrade croakage for now to avoid

too many not okay messages.

p4raw-id: //depot/perl@7357

diff --git a/doio.c b/doio.c
index 52dfd6d..7c4d3c9 100644 (file)
--- 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;
     }