summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-03-11 19:39:34 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-03-11 19:39:34 +0000
commitc7f1f0165ac822994a67426c2d8003c3974e49ef (patch)
tree04bf39f616ce516a7ac5faadf47ae622578082ee /utf8.c
parentffebcc3e6acf9636047196271385e91b0490ae34 (diff)
downloadperl-c7f1f0165ac822994a67426c2d8003c3974e49ef.tar.gz
Audit #ifdef EBCDIC and #ifndef ASCIIish, replace latter with former.
Use ASCII_TO_NATIVE and NATIVE_TO_ASCII to avoid some #ifs. p4raw-id: //depot/perlio@9105
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/utf8.c b/utf8.c
index 450138af56..7302bb77e2 100644
--- a/utf8.c
+++ b/utf8.c
@@ -253,11 +253,7 @@ Perl_utf8n_to_uvuni(pTHX_ U8* s, STRLEN curlen, STRLEN* retlen, U32 flags)
{
UV uv = *s, ouv;
STRLEN len = 1;
-#ifdef EBCDIC
- bool dowarn = 0;
-#else
bool dowarn = ckWARN_d(WARN_UTF8);
-#endif
STRLEN expectlen = 0;
U32 warning = 0;