--- util.c.org	Fri Feb 16 13:15:18 2001
+++ util.c	Mon Feb 19 10:45:02 2001
@@ -4004,6 +4004,9 @@
 }
 
 #ifdef EBCDIC
+/* in ASCII order, not that it matters */
+static const char controllablechars[] = "?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_";
+
 int
 Perl_ebcdic_control(pTHX_ int ch)
 {