add -pipe to gcc's default flags

[p5sagit/p5-mst-13.2.git] / wince / perlmain.c

diff --git a/wince/perlmain.c b/wince/perlmain.c
index 86e6c95..ced3b86 100644 (file)
--- 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)