diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-11-14 07:09:41 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-15 02:53:58 +0000 |
| commit | 7bf1b6bbb95d87030998c89eb72d5f6ca8be6937 (patch) | |
| tree | 29c6ff6116fe47ef3b7ca9583ca2eca91b11b1fd /utf8.c | |
| parent | eae55d033ab593e184d0509e5e265bcfaf391df2 (diff) | |
| download | perl-7bf1b6bbb95d87030998c89eb72d5f6ca8be6937.tar.gz | |
hush warnings about malformed EBCDIC text
Message-ID: <Pine.OSF.4.10.10011141500260.106218-100000@aspara.forte.com>
p4raw-id: //depot/perl@7695
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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) { |