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