1 /* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
2 
3 #include "EXTERN.h"
4 #include "perl.h"
5 
6 #ifdef __GNUC__
7 
8 /* Mingw32 defaults to globing command line
9  * This is inconsistent with other Win32 ports and
10  * seems to cause trouble with passing -DXSVERSION=\"1.6\"
11  * So we turn it off like this:
12  */
13 int _CRT_glob = 0;
14 
15 #endif
16 
17 /* Called from w32console/wmain.c */
18 
19 extern int w32console_usefunctionkeys;
20 
21 int
main(int argc,char ** argv,char ** env)22 main(int argc, char **argv, char **env)
23 {
24   int res;
25 
26   if(argc == 1)
27     XCEShowMessageA("Starting perl with no args is currently\r\n"
28 		    "not useful on Windows CE");
29 
30   w32console_usefunctionkeys = 0; /* this allows backspace key to work */
31 
32   res = RunPerl(argc, argv, env);
33 
34   if(res != 0)
35     XCEShowMessageA("Exitcode: %d", res);
36 
37   return res;
38 }
39 
40 
41