X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=wince%2Fperlmain.c;h=ced3b86cc08fa8fde6de62132953b1c117a4f80c;hb=4a39fcdeb5ff8d29084cd5cfbaed223de8adf4c1;hp=86e6c955240a61da100c2193341c966f01ae5c87;hpb=e1caacb4fdb62cb28dc825ca0115faf95e569339;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/wince/perlmain.c b/wince/perlmain.c
index 86e6c95..ced3b86 100644
--- a/wince/perlmain.c
+++ b/wince/perlmain.c
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 20:58:19 keuchel@w2k>
+/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -14,7 +14,9 @@ int _CRT_glob = 0;
 
 #endif
 
-// Called from w32console/wmain.c
+/* 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)