Commit | Line | Data |
---|---|---|
cb69f87a | 1 | /* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */ |
e1caacb4 JH |
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 | ||
cb69f87a | 17 | /* Called from w32console/wmain.c */ |
e1caacb4 | 18 | |
ac70a3b2 VK |
19 | extern int w32console_usefunctionkeys; |
20 | ||
e1caacb4 JH |
21 | int |
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 | ||
ac70a3b2 VK |
30 | w32console_usefunctionkeys = 0; /* this allows backspace key to work */ |
31 | ||
e1caacb4 JH |
32 | res = RunPerl(argc, argv, env); |
33 | ||
34 | if(res != 0) | |
35 | XCEShowMessageA("Exitcode: %d", res); | |
36 | ||
37 | return res; | |
38 | } | |
39 | ||
40 |