make backspace key work for WinCE users

Message-ID: <135606488000.20030826001029@peterstar.ru>

p4raw-id: //depot/perl@20894

diff --git a/wince/perlmain.c b/wince/perlmain.c
index cebbfb3..ced3b86 100644 (file)
--- a/wince/perlmain.c
+++ b/wince/perlmain.c
@@ -16,6 +16,8 @@ int _CRT_glob = 0;
 
 /* Called from w32console/wmain.c */
 
+extern int w32console_usefunctionkeys;
+
 int
 main(int argc, char **argv, char **env)
 {
@@ -25,6 +27,8 @@ main(int argc, char **argv, char **env)
     XCEShowMessageA("Starting perl with no args is currently\r\n"
                    "not useful on Windows CE");
 
+  w32console_usefunctionkeys = 0; /* this allows backspace key to work */
+
   res = RunPerl(argc, argv, env);
 
   if(res != 0)