1 files changed, 4 insertions, 0 deletions
diff --git a/utf8.h b/utf8.h
index 52671ebb9d..8945663e1a 100644
--- a/utf8.h
+++ b/utf8.h
@@ -270,6 +270,10 @@ Perl's extended UTF-8 means we can have start bytes up to FF.
 #error UTF8_MAXBYTES must be at least 12
 #endif
 
+/* ^? is defined to be DEL on ASCII systems.  See the definition of toCTRL()
+ * for more */
+#define QUESTION_MARK_CTRL  DEL_NATIVE
+
 #define MAX_UTF8_TWO_BYTE 0x7FF
 
 #define UTF8_MAXBYTES_CASE	UTF8_MAXBYTES