From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 18 Oct 2000 16:37:26 +0000 (+0000)
Subject: Disable the UTF8 downgrade croakage for now to avoid
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fba9e08bdd5a995162402be33a34407318531d1a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
     }