From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Tue, 26 Aug 2003 00:10:29 +0000 (+0400)
Subject: make backspace key work for WinCE users
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac70a3b2f4a62eb23e00dedadb429ca9ae569867;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)