Final move from meta-3.0 to meta-3.5
[p5sagit/p5-mst-13.2.git] / win32 / perlmaince.c
CommitLineData
cb69f87a 1/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
e1caacb4 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 */
13int _CRT_glob = 0;
14
15#endif
16
cb69f87a 17/* Called from w32console/wmain.c */
e1caacb4 18
ac70a3b2 19extern int w32console_usefunctionkeys;
20
e1caacb4 21int
22main(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 30 w32console_usefunctionkeys = 0; /* this allows backspace key to work */
31
e1caacb4 32 res = RunPerl(argc, argv, env);
33
34 if(res != 0)
35 XCEShowMessageA("Exitcode: %d", res);
36
37 return res;
38}
39
40