From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 14 Nov 2000 15:09:41 +0000 (-0800)
Subject: hush warnings about malformed EBCDIC text
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7bf1b6bbb95d87030998c89eb72d5f6ca8be6937;p=p5sagit%2Fp5-mst-13.2.git

hush warnings about malformed EBCDIC text
Message-ID: <Pine.OSF.4.10.10011141500260.106218-100000@aspara.forte.com>

p4raw-id: //depot/perl@7695
---

diff --git a/utf8.c b/utf8.c
index 3cee2c2..f1b80a4 100644
--- a/utf8.c
+++ b/utf8.c
@@ -192,7 +192,11 @@ Perl_utf8_to_uv(pTHX_ U8* s, STRLEN curlen, STRLEN* retlen, U32 flags)
     dTHR;
     UV uv = *s, ouv;
     STRLEN len = 1;
+#ifdef EBCDIC
+    bool dowarn = 0;
+#else
     bool dowarn = ckWARN_d(WARN_UTF8);
+#endif
     STRLEN expectlen = 0;
     
     if (curlen == 0) {